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

Question

Информатика

Риммич

8 апреля, 21:16

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

+5

Ответы (1)

Знаешь ответ?

Кирилична · Answer 1

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.

Вот так=)