Назовем натуральное число сверхнечетным, если оно состоит только из нечетных цифр. Требуется для заданного значения n найти n-е по счету сверхнечетное число. Вход: файл input. txt, содержащий только натуральное число n. Ограничения: 1 ≤ n ≤ 1000000. Выход: файл output. txt, содержащий одно натуральное число - n-е по счету сверхнечетное число. Пример: input. txt output. txt 13 35

Program Pr1;

uses crt;

var fl1, fl2:text;

i, n, v, a, b:integer;

Begin

clrscr;

assign (fl1,'input. txt');

assign (fl2,'output. txt');

reset (fl1);

readln (fl1, n);

v:=0;

for i:=1 to 1000000 do begin

if i>=10 then begin

a:=i div 10;

b:=i mod 10;

if (a mod 20) and (b mod 20) then v:=v+1;

end

else if i mod 20 then v:=v+1;

if v=n then break;

end;

rewrite (fl2);

writeln (fl2, v);

close (fl1);

close (fl2);

end.

Все работает я проверил