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

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

Question

Деена

27 августа, 23:38

+1

Ответы (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 вводится с клавиатуры.Желательно не используя массивы