Регистрация
kekocikkkkk
23.03.2022 15:43
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, меньших 500 и кратных 3. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество натуральных чисел, меньших 500 и кратных 3.

257
452
Посмотреть ответы 2

Ответы на вопрос:

Rosa02
Rosa02
4,7(100 оценок)
Program gt; var a,h: longint; begin read(a); h: =0; while (a< > 0) do begin if(a< 500)and(a mod 3=0)then h: =h+1;       //или inc(h) вместо h: =h+1; read(a); end; writeln(h); end.
эги1
эги1
4,5(21 оценок)
Отсутствия защиты на пк пользователя, может гразить ему потерей важных данных. если брать во внимания, последнее вредоносное программное обеспечение 2013 года, то спастить от зловреда, можно только собственным умом. никакие антивирусные программы не 100% защиты от вирусов. а само вредосное по, может нанести вред компьютеру от простейшего копирование различной конфиденциальной информации третьими лицами, до полной порчи вашей операционной системы.

Популярно: Информатика