Найти все двузначные числа, которые делятся на m или содержат цифру m. Язык Паскаль

Question

Информатика

Лидя

15 октября, 07:45

Найти все двузначные числа, которые делятся на m или содержат цифру m. Язык Паскаль

+3

Ответы (1)

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

Малина · Answer 1

Var a, b, c:integer;

begin

writeln ('введите число') ;

readln (a) ;

for b:=10 to 99 do

begin

if (b mod a = 0) or (b div 10 = a) or (b mod 10 = a) then writeln (b) ;

end;

end.