Программа в паскале для вывода 3-значных чисел делящихся на 3 и 5 без остатка

Var a:array[100..999] of longint; i:longint;

begin

For i:=1 to 999 do

If ((a[i] mod 3) = 0) and ((a[i] mod 5) = 0) then

writeln(a[i]) ;

End.

Попробуй. И поставь как лучший

Текстовый редактор предназначен именно для редактирования текста, четкого выставления знаков, например написания кода программ, просмотра файлов данных и т.п. Например заменить русской "у" латинское "y" будет считаться ошибкой

Текстовый процессор предназначен для создания и редактирования документов которые не предназначены для чтенья компьютером, но человеком. Когда внешний вид важнее реально содержащихся знаков ( допустимо заменить русской "у" латинское "y"). Так же там есть форматирование (шрифт, размер..), вставка обьектов типа рисунков и прочее внешнее оформление

429 1113 223 1716 1212 121 422 524 25

429 быть не может, т.к это значило бы, что сумма чётных равна четыре, а нечётных 29, но даже если взять 9+9+9 29 мы не получим

1113 получить тоже нельзя, т.к. сумма любого количества чётных чисел это тоже четное число

!223 быть может

1716 не может, т.к. нужно в порядке возрастания

!1212 быть может

121 не может, т.к. тут опять 2 нечётных числа, что быть не может

422 быть не может, т.к. тогда получается 4 и 22. Если 22 состоит из Зх нечётных циферблат, то она тоже была бы нечётной, но была бы меньше 20

!524 может

!25 может

Итого:4