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

Question

Информатика

Анфия

6 августа, 15:59

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

+1

Ответы (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.