Выполнять крайне внимательно
-
Расположите символьные величины по убыванию

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.

var s,i,n,m : longint;

begin

  readln(m,n);

  if m> n then

  begin

      s: =m;

      m: =n;

      n: =s

  end;

  s: =0;

  for i: = m to n do if i mod 12=0 then s: =s+i;

  writeln(s);

end.

переведем 128000бит в кбайты для удобства: 128000бит=128000/8 байт( т.к. в одном байте 8 бит)=16000 байт=16000/1024 кбайт (т.к. в одном кбайте 1024 байт)=15,625 кбайт, следовательно скорость передачи данных равна 15,625 кбайт/с

500кбайт/15,625 кбайт/с=32 секунды займет передача файла

ответ: 32 секунды