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.
Поделитесь своими знаниями, ответьте на вопрос:
64 = 2^6 ---> 6 бит информации
2) 2:5 =32 последнее число 32
3) m o u s e
e = 101 (10c|c) = 64+32+4+1 = 0110 0101 (2c/c) (по байтам)
m =109 = 64+32 +8 +4 +1 = 0110 1101
0 = 111 =64+32+8+4+2+1 = 0110 1111
s =115 = 64+32+16+2+1= 0111 0111
u=117 =64 +32+16+4+1 = 0111 0101
mouse
0110 1101 0110 1111 0111 0101 0111 0111 0110 0101