с информатикой 10 класс, алгебра логики:

3 и 4 номер...

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.

2344 с.

Объяснение:

Сколько всего пришлось скачать Ивану:

100 Кб  =100*1024 байт=102400 байт первая программа

Потом он скачал половину (100/2= 50 байт) второй программы, произошел сбой и он скачал вторую программу 100 байт еще раз. Значит из второй программы он скачал 50+100=150 байт.

Всего Иван скачал 102400+150=102550 байт или, зная что в 1 байте 8 бит он скачал 102550*8=820400 бит информации.

Скорость скачивания была 350 бит/с и время которое понадобилось на скачивание двух программ составило 820400 / 350 = 2344 секунды