Ответы
Ответ дал:
0
Program slovo;
const symbols = [ ' ', ';', ':', '-','?','!','.',','];
var s:string;
i:byte;
n:integer;
begin
writeln('введите строку');
readln(s);
for i:=1 to length(s) do begin
if (s[i] in Symbols) and not (s[i-1] in Symbols) then n:=n+1;
end;
writeln('в строке ',n,' слов');
readln;
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад