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

Question

Информатика

Веселина

17 августа, 18:20

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

+2

Ответы (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.

Вот так=)