Решите 3 задание пожайлуста

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

4мин=240 сек.

1 половина всего времени = 240/2=120 сек.

за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит

за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит

всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт

ход решения таков:

набрать кувшин 8 л. из него отлить в кувшин 3 л. затем вылить эти 3 л. затем опять отлить из 8литрового в кувшин 3 л. оставшаяся вода в 8литровом кувшине =2 л. переливаешь в 3литровый. потом набираешь полный 8литровый. из него доливаешь воды в 3литровый, т.е. 1 л. остается 7 л.