Вопрос школьника по предмету Информатика
Дано предложение. В нем слова разделены пробелом.Верно ли ,что число слов в предложении больше трёх.Напишите пожалуйста программу в паскале . Заранее спасибо
Ответ учителя по предмету Информатика
var
s:string;
i,count:integer;
begin
count:=0;
readln (s);
for i:=1 to length(s) do
if (s[i]=’ ‘) then count:=count+1;
if (count+1 >=3) then
writeln (‘Верно’)
else
writeln (‘Неверно’);
end.
Похожие вопросы от пользователей
Шли по улице два товарища — Петя и Коля. Дружные, рука за руку. Остановились у витрины книжного магазина. Полюбовались книжками.
— Зайдём купим?
Зашли. Пересмотрели немало обложек и картинок.
Коля быстро купил одну, вторую — обе с картинками — и, заплатив деньги, положил в карман сдачу — три гривенника.
А у Пети денег было маловато. Очень понравилась ему книжка «Кем быть?». Купишь такую и сразу много узнаешь хорошего. Посчитал Петя деньги — и на эту не хватает. И немного: всего гривенника недостаёт.
— Коля, — попросил он, — дай взаймы десять копеек. Такая хорошая книжка — рассказывает: кем быть и кем не быть.
Нахмурился Коля:
— Не хватает денег — не покупай, и всё!
Пожалел деньги.
Посмотрела на приятелей тётя-продавщица, которая только что отдала Коле сдачу, и сказала Пете:
— Не огорчайся, мальчик! Кем быть — ты узнаешь, когда подрастёшь. А кем не быть — твой товарищ знает.
При этих словах Коля покраснел и вышел из магазина потихоньку, чтобы не звенели в кармане гривенники.
А Петя выбежал за ним и всё спрашивал:
— Скажи, Коля, кем не надо быть? Скажи!
Коля угрюмо помалкивал.
Хоть и знал, да не сказал. Вы не догадываетесь почему?Поделитесь текст на части.Озаглавьте их.