45 баллов. Составить программу, которая выводит на экран сумму, произведение и среднее арифметическое кубов всех целых чисел от a до b. (Значение переменных a и b вводятся с клавиатуры).
Answers & Comments
JahKhalib228program sdad; var a, b, i, c: integer; sum, pro, sr: real; begin sum := 0; pro := 1; sr := 0; c := 0; readln(a, b); for i := a to b do begin c := c + 1; sum := sum + i; pro := pro * i; sr := sr + i * i; end; sr := sr / c; writeln('Сумма чисел = ', sum); writeln('Произведение чисел = ', pro); writeln('Среднее арифметическое кубов = ', sr); end.
Answers & Comments