Найти все двузначные числа содержащие цифру n  в паскале

Найти все двузначные числа содержащие цифру n  в паскале
Гость
Ответ(ы) на вопрос:
Гость
var i, j, n: integer;     m: string; begin      readln(n);      for i := 10 to 99 do      begin          m := inttostr(i);          for j := 1 to length(m) do              if (m[j] = inttostr(n)) then writeln(i);      end; end. Вот так=)
Не нашли ответ?
Ответить на вопрос
Похожие вопросы