Скорость передачи данных через модем равна 152 мбит/с через данное соединение передаётся файл размером 817152 кбайт определите время передачи файла в секундах
Var R1, R2, R3, S1, S2, S3: Integer; begin writeln('Введите размеры рации и чемодана'); readln(R1, R2, R3, S1, S2, S3); if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or ((R3 < S3) and (R2 < S1) and (R1 < S2)) or ((R1 < S1) and (R2 < S3) and (R3 < S3)) or ((R2 < S2) and (R1 < S3) and (R3 < S1)) or ((R2 < S1) and (R3 < S2) and (R1 < S3)) or ((R1 < S2) and (R3 < S1) and (R2 < S3)) then WriteLn('ПОМЕЩАЕТСЯ') else WriteLn('НЕ ПОМЕЩАЕТСЯ'); end.
Writeln('Write x1,x2,x3 : '); Readln(x1,x2,x3); if x1>4 then writeln(sqrt(abs(sin(sqr(x1)-1)/cos(sqr(x1)-1))):10:20); if x1>=0 then if x1<=4 then writeln(-2*x1:10:20); if x1<0 then writeln(Exp(cos(x1)):10:20);
if x2>4 then writeln(sqrt(abs(sin(sqr(x2)-1)/cos(sqr(x2)-1))):10:20); if x2>=0 then if x2<=4 then writeln(-2*x2:10:20); if x2<0 then writeln(Exp(cos(x2)):10:20);
if x3>4 then writeln(sqrt(abs(sin(sqr(x3)-1)/cos(sqr(x3)-1))):10:20); if x3>=0 then if x1<=4 then writeln(-2*x3:10:20); if x3<0 then writeln(Exp(cos(x3)):10:20);
