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

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

Question

Свирид

24 марта, 20:04

+2

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