1 2 3 4 5 6 7 8 9 10 | DIM T AS STRING, N AS STRINGCLSINPUT "Vvedite tekst : ", TFOR i = 1 TO LEN(T) Smb$ = MID$(T, i, 1) IF Smb$ = " " THEN Smb$ = "-" N = N + Smb$NEXTPRINT "Ishosnyj tekst : "; TPRINT "Novij tekst : "; N |
Тестирование выполнено в программе QB64 ( Скачать )