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

Question

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

Comments

А что на вход?

---

Какие переменные?

---

вот так дали задание

---

А если на вход подается количество элементов, а затем сами элементы? Сойдет?)

---

давай

---

Я написал на Паскале

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.

Comments

Стоп, секунду - там где первый end, точку после него замените на ;

---

спасибо помог