Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.