Вывести числа, кратные 3 в интервале от а до b (вводятся с клавиатуры). Напишите программу в Pascal

Question

Информатика

Тихон

9 января, 13:35

Вывести числа, кратные 3 в интервале от а до b (вводятся с клавиатуры). Напишите программу в Pascal

+4

Ответы (1)

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

Пётр · Answer 1

Var a, b, i:integer;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

for i:=a to b do if i mod 3 = 0 then write (i,' ') ;

writeln;

end.

Пример:

a=10

b=20

12 15 18