Артём заметил, что за 1010 минут до конца контрольной учитель обычно встает из-за стола и начинает ходить между рядами. Значит, можно другу! На очередной контрольной Артем сфотографировал свои ответы, чтобы послать другу. Каждая фотография весит 33 Мб, всего их 1010. Артём хочет отправить их через мессенджер, в котором информация передается со скоростью 384384 Кбайт/с. До конца контрольной осталось 1010 минут. Сколько времени будет у друга, чтобы переписать ответы? Укажите время в секундах. (Вместе с пошаговым решением)

60511,2 с.

Объяснение:

384384 Кбайт/с. = 375,375 Мбайт/с. (384384 / 1024).

33 Мбайт * 1010 фотографий = 33330 Мбайт — общий вес всех фотографий.

33330 / 375,375 = 88,8 с. = 1,48 мин. (88,8 / 60) — столько времени будут перекидываться фотографии.

1010 - 1,48 = 1008,52 мин. = 60511,2 с. — будет времени у друга, чтобы переписать ответы.

ИМХО: Слишком странные данные в задачи. Её действительно преподаватель дал (извиняюсь за тавтологию), или вы сами её придумали?

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так

uses graph;                                           {подключен модуль graph}var x,y,h: integer; procedure grinit;       {процедура инициализации режима графики}var      graphdriver: integer;                   {для графического адаптера}      graphmode  : integer;                   {для графического режима}      errorcode  : integer;                   {для кода ошибки}begin      graphdriver : =detect;                   {режим автоопределения}      initgraph(graphdriver ,graphmode,''); {инициализация}      errorcode : =graphresult;             {результат инициализации}      if errorcode < >   grok then        {если не успешно,}      begin            writeln('ошибка графики: ',grapherrormsg(errorcode ));             writeln('программа остановлена.');             halt(1)      end {if}end; begin      grinit;                                                           {вызов инициализации}      x: =getmaxx div 2;       y: =getmaxy div 2;       h: = 30; {кол-во шагов до финиша}      while x+y> 0 do      begin        cleardevice;             circle(x, y, 10);             delay(100);             x: = x + getmaxx div h;             y: = y - getmaxy div h;       end;       readln;                                                 {пауза до нажатия }      closegraph;                                 {закрытие графического режима}end.