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

Язык Pascal. abc

Question

Эдя

28 ноября, 10:24

+1

Ответы (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