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.
при n = 3 S = 3
при n = 6 S = 18
Объяснение:
1)
n = 3 S = 0 k = n = 3
k > 2 (3 > 2, да)
S = S + k = 0 + 3 = 3
k = k - 1 = 3 - 1 = 2
n = 3 S = 3 k = 2
k > 2 (2 > 2, нет)
2)
n = 6 S = 0 k = n = 6
цикл выполнится 4 раза, при этом k будет принимать значения 6, 5, 4, 3
S = 0 (начальное значение) + 6 + 5 + 4 + 3 = 18