Ответы
Ответ дал:
0
var
i,n:integer;
s:string;
begin
Write('Введите строку: '); Readln(s);
n:=0;
for i:=1 to length(s) do
if s[i]=' ' then n:=n+1;
Writeln('Количество пробелов равно ',n)
end.
Тестовое решение:
Введите строку: Пример текстовой с т р ок и !!!
Количество пробелов равно 13
i,n:integer;
s:string;
begin
Write('Введите строку: '); Readln(s);
n:=0;
for i:=1 to length(s) do
if s[i]=' ' then n:=n+1;
Writeln('Количество пробелов равно ',n)
end.
Тестовое решение:
Введите строку: Пример текстовой с т р ок и !!!
Количество пробелов равно 13
Вас заинтересует
6 лет назад
9 лет назад
9 лет назад
9 лет назад