Дана строка заканчивающаяся точкой подсчитать сколько в строке слов с тремя буквами PASCAL
Дана строка заканчивающаяся точкой подсчитать сколько в строке слов с тремя буквами PASCAL
Гость
Ответ(ы) на вопрос:
Гостьvar c:char; k,i:integer;
begin
k:=0; i:=0;
read(c);
while c<>'.' do begin
if c=' ' then begin
if i=3 then k:=k+1;
i:=0 end
else i:=i+1;
read(c)
end;
write(k)
end.
Не нашли ответ?
Похожие вопросы