Назовем натуральное число сверхнечетным, если оно состоит только из нечетных цифр. требуется для заданного значения 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.

 

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

Wi-Fi(Wireless Fidelity)- в переводе с английского означает"беспроводная сеть". Беспроводная сеть-это сеть,основанная на беспроводном(без использования кабельной проводки). Это технологии которые полностью соответствуют стандартам для обычных проводных сетей,в качестве насителя выступают радиоволны.

Bluetooth-это производственная спецификация беспроводных сетей.

Преимущества Wi-Fi:

•позволяет развернуть сеть без кабеля

•простота установки

•мобильность и высокая скорость передачи данных

•Wi-Fi может объединить всю электронику в доме

Виды беспроводной сети по дальности действия:

1.беспроводные персональные сети(WPAN)

2.беспроводные локальные сети(WLAN)

3.беспроводные сети масштаба города(WMAN)

4.беспроводные глобальные сети(WWAN)

Дальность действия сети WLAN-до 10 метров

Var     x, x1, y, y1, d  : integer; begin     writeln('введите координаты первой точки: ');     write('x: ');     readln(x);     write('y:   ');     readln(y);     writeln('введите координаты второй точки: ');     write('x:   ');     readln(x1);     write('y:   ');     readln(y1);     d : = sqrt( sqr(x1-x) + sqr(y1-y)  );     write('расстояние между двумя точками:   ', d);     readln; end.