На вход даются числа от 1 до 250. Признак окончания ввода 0. Найти кол-во чисел кратных 3 и содержащих 2.

Question

Информатика

Гуня

17 апреля, 21:32

На вход даются числа от 1 до 250. Признак окончания ввода 0. Найти кол-во чисел кратных 3 и содержащих 2.

+5

Ответы (1)

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

Кириллична · Answer 1

Var x, kol, a1, a2, a3:integer;

begin

read (x) ;

while x0 do begin

if ((x mod 3) = 0) then begin

a1:=x div 100;

a2: = (x div 10) mod 10;

a3:=x mod 10;

if (a1=2) or (a2=2) or (a3=2) then inc (kol) ;

end;

read (x) ;

end;

writeln (kol) ;

end.