Утоли есть доступ к сети интернет по высокоскоростному одностороннему радиоканалу обеспечивающему скорость получения информации 2 в 18 степени бит в секунду у миши нет скоростного доступа в интернет, но есть возможность получать информацию от толи по низкоскоростному телефонному каналу со средней скоростью 2 в 15 степени в секунду.иша договорился с толей, что тот будет скачивать для него данные объемом 11 мбайт по высокоскоростному каналу и ретранслировать их мише по низкоскоростному каналу.компьютер толи может начать ретрансляцию данных не раньше, чем им будут получены первые 512 кбайт этих данных. каков минимально возможный промежуток времени(в секундах) с момента начала скачивания толей данных до полного их получения мишей? в ответе укажите число

1)время за скачиванием будет равно (2^9*2^13)/2^18=2^5=32 секунды

2)время за передачей будет равно (2^9*2^13)/2^15=2^8=256 секунды

256+32=288 секунд

{PascalABC}

Program Puzzle;

var  

 R,day:integer;  

 week:array[1..7] of string;

 i:integer;

 s:string;

begin

 week[7]:='Воскресенье';

 week[6]:='Суббота';

 week[5]:='Пятница';

 week[4]:='Четверг';

 week[3]:='Среда';

 week[2]:='Вторник';

 week[1]:='Понедельник';

 s:=' -=Alphaeus=- ';

 for i:=1 to 22 do begin write(s[i]); sleep(200) end;

 writeln; writeln('ОК, Задумайте день недели (номер от 1 до 7)');

 writeln('Удвойте этот номер');

 writeln('Увеличьте результат на 5');

 writeln('Умножьте полученное число на 5');

 writeln('Теперь то, что получилось, умножьте на 10');

 writeln('Введите полученный результат'); readln(R);

 day:= round((R-250)/100);

 writeln('');

 case day of

   1..7: writeln('      Вы задумали ',week[day]);

   else writeln('Что-то пошло не так... Либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')

 end;

 writeln('');

end.

                                     PascalABC.NET                                       beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы: