Напишите функцию, предназначенную для вычисления количества пробелов в веденной строке.
Решение:
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program functions_6;
uses crt; var s: string; function space(ss: string): integer; var i, p: integer; begin p:=0; for i:=1 to length(s) do if ord(s[i])=32 then p:=p+1; space:=p; end; begin clrscr; write(‘Строка > ‘); read(s); write(‘Строка содержит ‘, space(s), ‘ пробел(a/ов)’); readkey; end. |