Верно ли, что самое длинное слово в строке содержит больше 10 букв? Программа должна вывести одно слово: «Верно» или «Неверно»(Pascal ABC)
Верно ли, что самое длинное слово в строке содержит
больше 10 букв? Программа должна вывести одно слово: «Верно» или «Неверно»(Pascal ABC)
Гость
Ответ(ы) на вопрос:
ГостьДумаю что неверно....
Гостьvar
c : integer;
k : char;
begin
c := 0;
while not eoln do
begin
read (k);
if k = ' ' then
begin
if c > 10 then
begin
write ('YES');
halt;
end;
c := 0;
end
else
c := c + 1;
end;
if c > 10 then write ('YES') else write ('NO');
end.
Не нашли ответ?
Похожие вопросы