Вывести на экран все натуральные числа делящиеся на 3 без остатка

Question

Информатика

Евсевия

4 ноября, 07:50

Вывести на экран все натуральные числа делящиеся на 3 без остатка

+3

Ответы (1)

Знаете ответ на вопрос?

Петюня · Answer 1

Var mas : array [1 ... 100000] of longint;

i, n : longint;

begin

read (n) ;

for i:=1 to n do begin

read mas[i];

end.

for i:=1 to n do begin

if mas[i] mod 3=0 then write (mas[i],' ') ;

end;

end.