Напишите программу, которая вычисляет сумму, среднее арифметическое и произведение первых...

Question

Напишите программу, которая вычисляет сумму, среднее арифметическое и произведение первых 20 чисел.

Помогите пожалуйста. Буду очень благодарна!

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=1.To(20);
  Writeln('Сумма ',s.Sum,', среднее арифметическое ',s.Average,
      ', произведение ',s.Aggregate(BigInteger(1),(p,q)->p*q))
end.

Результат
Сумма 210, среднее арифметическое 10.5, произведение 2432902008176640000

Answer 2

Program srednee_chisel;uses crt;var q,x,s:longint; a:real;begin clrscr;q:=1;for x:=1 to 20 do begins:=s+x;q:=q*x; end;a:=s/20;writeln ('Сумма', s:5);writeln ('Среднее арифметическое', a:5);writeln ('Произведение', q:6);readln; end.

Comments

program srednee_chisel;
uses crt;
var q,x,s:longint; a:real;
begin clrscr;
q:=1;
for x:=1 to 20 do begin
s:=s+x;
q:=q*x;
writeln (q);
end;
a:=s/20;
writeln ('Сумма', s:5);
writeln ('Среднее арифметическое', a:5);
writeln ('Произведение', q:6);
readln;
end.

---

Вынужден Вас огорчить, Ваша программа работает неверно

---

1
2
6
24
120
720
5040
40320
362880
3628800
39916800
479001600
1932053504
1278945280
2004310016
2004189184
-288522240
-898433024
109641728
-2102132736
Сумма 210
Среднее арифметическое 10.5
Произведение-2102132736

---

Не говоря о величине, произведение натуральных чисел не может быть отрицательным.