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.
Поделитесь своими знаниями, ответьте на вопрос:
Какие объекты созданы на форме? 2. Для чего создан каждый из объектов? 3. Какого типа величины использованы? 4. Опишите содержание каждой строки кода: 36 37 38 39 40 41 42 43 44 45 46 48
Настя как тебе не стыдно хахахха
Объяснение:(это я Илья) ору