Вывести числа, принадлежащие отрезку [A, B], кратные числу 3.

В програме pascalABC, желательно с блок-схемой

Question

Лебния

6 мая, 03:38

+3

Ответы (1)

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

Вита · Answer 1

Var

a, b, i: integer;

begin

read (a) ;

read (b) ;

for i : = a to b do

if i mod 3 = 0 then

writeln (i) ;

end.

Вывести числа, принадлежащие отрезку [A, B], кратные числу 3.В програме pascalABC, желательно с блок-схемой