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

Question

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

Answer 1

34

fortunato

20 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: