Question

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

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.