Задание:
Вывести на экран все натуральные числа делящиеся на 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.
Знаете другой ответ?