Создать программу, которая выведет на экран числа от 1 до N, которые делятся на 3. N-целое число которое вводится с клавиатуры

Язык Pascal. abc

Question

Машука

30 сентября, 06:35

+5

Ответы (1)

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

Архип · Answer 1

Var n, i:integer;

begin

write ('Введите n:') ;

readln (n) ;

for i:=1 to n do

if i mod 3=0 then writeln (i) ;

readln;

end.

Создать программу, которая выведет на экран числа от 1 до N, которые делятся на 3. N-целое число которое вводится с клавиатурыЯзык Pascal. abc