Сверхнечетное число

@Housel33t · Регистрация: 02.06.2012

Author24 — интернет-сервис помощи студентам

1. Сверхнечетное число

Назовем натуральное число сверхнечетным, если оно состоит только из нечетных цифр. Требуется для заданного значения n найти n-е по счету сверхнечетное число.

Вход: файл input.txt, содержащий только натуральное число n.

Ограничения: 1 ≤ n ≤ 1000000.

Выход: файл output.txt, содержащий одно натуральное число – n-е по счету сверхнечетное число.

Пример:

input.txt	output.txt
13	35

@Ce7eH_111 · 25.11.2012, 20:43

Pascal

readln(f1,n);
while f<>1 do 
    begin inc(i);c:=i;
            repeat ost:=c mod 10; c:=c div 10; inc(k);  
                      if ost mod 2<>0 then inc(p); 
            until c=0;     
           if p=k then inc(nec);
           if nec=n then begin chislo:=i; f:=1; end 
                       else begin k:=0; p:=0;
    end;
writeln(f2,chislo);

Осталось только вар написать думаю справишся

	25.11.2012, 20:43

Сверхнечетное число

Решение