Дана строка в которой записаны слова отдельные друг от друга одним пробелом, в конце строки стоит точка, подчитать количество слов в строке — Pascal(Паскаль)

var
 n: byte;
 S: string;
begin
write('BBegu cTpoky: ');
Readln(S);
n:=1;
for i:=1 to length(S) do
 if S[i]=' ' then inc(n);
writeln('CJIoB:', n);
end.

Похожие записи/страницы:

Leave a Comment

+ 11 = 15