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

Question

Информатика

Нинура

15 января, 01:46

Найти все двузначные числа содержащие цифру 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.

Вот так=)