Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.

Ответ оставил Гость

Var a,d,e:string; 
   c:real; 
   f:integer;
begin
writeln(введите предложение отделяя каждое слово новой строкой);
readln(a);
c:=0;
while (a<>b) do begin
if length(a) = 3 then
c:=c+1;
readln(a);
end;
writeln(c);
end.
тут один минус , каждое новое слово надо вводить через enter совершенно не используя пробела и точку тоже чнрез enter