Подсчитать, сколько слов в строке, которая заканчивается точкой.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | program characters_and_strings_3; uses crt; var s: string; i, c: integer; begin clrscr; write(‘Строка > ‘); read(s); c:=1; for i:=1 to length(s) do if s[i]=‘ ‘ then c:=c+1; write(‘В строке ‘, c, ‘ слов(а)’); readkey; end. |
