А какое задание я же не знаю
Program Task;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x, y : real;
a, b : integer;
begin
a := 1;
b := 3;
read(x);
if (x < 2.3) then
y := exp(-b * x) * sin(b * x)
else if (x < 3) then
y := cos(b * x)
else
y := exp(-a * x) * cos(b * x);
writeln(y);
end.<span>
</span>
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
I = 3072 Кбайт = 3072 * 1024 * 8 бит = 25165824 бит
v = 4 Мбит/с = 4 * 1024 * 1024 бит/с = 4194304 бит/с
t - ?
Решение:
t = I / v = 25165824 / 4194304 = 6.0 c = 0.1 минут
Ответ: 6.0
Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if b<0 then Write(a,b)
else Write(a,'+',b);
if c<0 then Write(c,' = ',a+b+c)
else Write('+',c,' = ',a+b+c);
WriteLn;
if b<0 then Write(a,'*(',b,')')
else Write(a,'*',b);
if c<0 then Write('*(',c,') = ',a*b*c)
else Write('*',c,' = ',a*b*c);
WriteLn;
if b<0 then Write('(',a,b)
else Write('(',a,'+',b);
if c<0 then Write(c,')/3 = ',(a+b+c)/3)
else Write('+',c,')/3 = ',(a+b+c)/3);
End.