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

Question

Информатика

Альба

9 октября, 03:42

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

+5

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