Через adsl соединение файл размером 2500 кбайт передавался 40 сек. сколько секунд потребуется для передачи файла размером 2750 кбайт?

Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
ответ 44 сек

pascal

Объяснение:

Задание 1

var

y, z, c, d: real;

s, p: real;

begin

Write('Введите y, z, c и d:');

ReadLn(y, z, c, d);

p := y * z * c * d;

s := y + z + c + d;

WriteLn('Сумма равна ', s);

WriteLn('Произведение равно ', p);

end.

Результат: 33 и 250

Задание 2

var

a: real;

s: real;

begin

Write('Введите сторону квадрата a:');

ReadLn(a);

s := sqr(a);

WriteLn('Площадь квадрата равна ', s);

end.

Результат: 64

Задание 3

var

a, b: real;

s: real;

begin

Write('Введите стороны прямоугольника a и b:');

ReadLn(a, b);

s := a * b;

WriteLn('Площадь прямоугольника равна ', s);

end.

Результат: 60

pascal

Объяснение:

Задание 1

var

y, z, c, d: real;

s, p: real;

begin

Write('Введите y, z, c и d:');

ReadLn(y, z, c, d);

p := y * z * c * d;

s := y + z + c + d;

WriteLn('Сумма равна ', s);

WriteLn('Произведение равно ', p);

end.

Результат: 33 и 250

Задание 2

var

a: real;

s: real;

begin

Write('Введите сторону квадрата a:');

ReadLn(a);

s := sqr(a);

WriteLn('Площадь квадрата равна ', s);

end.

Результат: 64

Задание 3

var

a, b: real;

s: real;

begin

Write('Введите стороны прямоугольника a и b:');

ReadLn(a, b);

s := a * b;

WriteLn('Площадь прямоугольника равна ', s);

end.

Результат: 60