Напишите программу, которая в последовательности натуральных чисел определяет к??личество чисел, меньших 500 и кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество натуральных чисел, меньших 500 и кратных 3.
?личество чисел, меньших 500 и кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество натуральных чисел, меньших 500 и кратных 3.
Program gt;var a,h:longint;beginread(a);h:=0;while (a<>0) dobeginif(a<500)and(a mod 3=0)then h:=h+1; //или Inc(h) вместо h:=h+1;read(a);end;writeln(h);end.
Также наши пользователи интересуются:
Какая эта часть речи ? Из лесаПривидите примеры НЕравнодушного отношения к окружающим.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Напишите программу, которая в последовательности натуральных чисел определяет к?» от пользователя Аврора Щупенко в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!