Задание:
Назовем натуральное число сверхнечетным, если оно состоит только из нечетных цифр. Требуется для заданного значения 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; Beginclrscr; 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 2<>0) and (b mod 2<>0) then v: =v+1; end else if i mod 2<>0 then v: =v+1; if v=n then break; end; rewrite (fl2); writeln (fl2,v); close (fl1); close (fl2); end. Все работает я проверил
Знаете другой ответ?