1)
N-искомый объем в МБ; (кол-во бит ,деленных на
))
N=1024*512*32*25/
;
N=
*
*
*25/
;
N=2*25=50(Мб)
Ответ:50 Мб
2)
N-искомый объем в Кб;
N=
(4*32*64*8//это текст// + 256*128 //1-я картинка// + 256*512//2-я картинка//)/(
N=(
*
*
*
+
*
+
*
)/
;
N=(
+
+
)/
=
8+4+16=28(Кб)
Ответ: 28 Кб
3) Традиционно N-искомый объем в Мб;
N=64*16*16000=(
*
*
*1000)/
N=
*1000/
=1000/512= (приблизительно) 2(Мб)
Ответ:2 Мб
1024000 бит сек * 5 сек = 5120000 бит вес файла (инф. объём).
PROGRAM ThreeNumbers;
VAR
numberOne : DOUBLE;
numberTwo : DOUBLE;
numberThree : DOUBLE;
sum : DOUBLE;
product : DOUBLE;
average : DOUBLE;
BEGIN
WriteLn('Введите три числа:');
Write('Число 1 -->');
ReadLn(numberOne);
Write('Число 2 -->');
ReadLn(numberTwo);
Write('Число 3 -->');
ReadLn(numberThree);
sum := numberOne + numberTwo + numberThree;
product := numberOne * numberTwo * numberThree;
average := (numberOne + numberTwo + numberThree) / 3.0;
WriteLn('Сумма = ', sum:6:1);
WriteLn('Произведение = ', product:6:1);
WriteLn('Среднее = ', average:6:1);
END.
Var
a, n, i: integer;
r: longint;
begin
r := 1;
readln(a, n);
for i := 1 to n do
r := r * a;
write(r);
end.