Viones
6 год назад
Помогите составить программу в Pascal. Дана строка символов, состоящая из слов, разделенных пробелами. Найти количество слов с пятью символами.
ОТВЕТЫ
Никодим
Jul 8, 2019
Var y:string;
c,kolvo:int64;
begin
readln(y);
for var i:=1 to Length(y) do begin
if y[i]lt;gt; then c+=1 else c:=0;if c=5 then begin if Length(y)-igt;=1 then begin if y[i+1]= then kolvo+=1; end else kolvo+=1; end;end;
writeln(kolvo);
end.
c,kolvo:int64;
begin
readln(y);
for var i:=1 to Length(y) do begin
if y[i]lt;gt; then c+=1 else c:=0;if c=5 then begin if Length(y)-igt;=1 then begin if y[i+1]= then kolvo+=1; end else kolvo+=1; end;end;
writeln(kolvo);
end.
179
Смежные вопросы:
