Напишите программу поиска все двузначных чисел, в которых есть цифра n, или само число делится на n (решите по паскалю).

2

Ответы и объяснения

2013-12-15T21:14:17+04:00
var
  i, n: integer;
begin
  readln(n);
  for i := 10 to 99 do
    if (i mod 10 = n) or (i div 10 = n) or (i mod n = 0) then write(i:4);
end.
2013-12-15T21:25:51+04:00
Var
  i,n: integer;
begin
  readln(n);
  for i:= 10 to 99 do
    if (i mod 10 = n) or (i div 10 = n) or (i mod n = 0) then writeln(i)
end.