С клавиатуры вводится некоторое количество положительных чисел, результатом конца ввода является любое отрицательное число. Найти и вывести на экране все числа кратные 3

Question

Информатика

Пава

24 марта, 08:44

С клавиатуры вводится некоторое количество положительных чисел, результатом конца ввода является любое отрицательное число. Найти и вывести на экране все числа кратные 3

+3

Ответы (1)

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

Беата · Answer 1

Var a, b, i:integer;

begin

write ('Введите А:') ; readln (a) ;

write ('Введите Б:') ; readln (b) ;

for i: = a to b do begin

if (i mod 3=0) then write (i,' ') ;

end;

end.