Напишите программу, которая выводит на экран все числа от 1 до N кратные трем. N вводится с клавиатуры.

Желательно не используя массивы

Question

Полинарий

30 октября, 22:27

+5

Ответы (1)

Знаете ответ?

Васяна · Answer 1

var

i, n:integer;

begin

write ('Write n: ') ;

readln (n) ;

for i:=1 to n do

if i mod 3=0

then write (i,' ') ;

readln

end.

Напишите программу, которая выводит на экран все числа от 1 до N кратные трем. N вводится с клавиатуры.Желательно не используя массивы