Вывести на экран все натуральные числа делящиеся на 3 без остатка
Вывести на экран все натуральные числа делящиеся на 3 без остатка
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы