var
a, b: integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a < b then writeln(sqr(trunc((a/b))))
else writeln(sqr(trunc((b/a))));
<span>end.</span>
Это любые действия, связанные с изменением внешнего вида текста: цвет, начертание, регистр и т.д.
4мин=240 сек.
1 половина всего времени = 240/2=120 сек.
За перпую половину времени передалось = 120 сек * 117 Кбит = 14040 Кбит
За вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит
Всего передалсоь = 14040+4680=18720 Кбит = 2340 Кбайт