Question

Напишите программный код. Вывести на экран все 3-х значные числа, делящиеся на 3. (Вывод чисел в строку) ( паскаль)


30баллов ​

Answer 1

Ответ:

var i,d: integer;

begin

for i:=100 to 999 do

begin

d:=i mod 3;

if (d=0) then

write(i,' ');

end;

end.

Answer 2

var  

i: integer;

begin

for i:=100 to 999 do

if (i mod 3 = 0) then

write(i,' ');

end.