1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
25 байт = 25*8=200 бит
30 кб = 30* 1024 = 30720 байт
9 мб = 9*1024*1024=9437184 байт
6 кб = 6*1024*8=49152 бит
288 бит = 288/8=36 байт
5242880 тб = 5242880 *1024*1024*1024=5242880*2^30 кб
Переведём скорость оптического канала в кб / с.
640*512 * 7 = 2 293 760 бит = 286 720 байт = 280 Кбайт