Question

Программа выводит целое положительное n
(меньше 256) и вычисляет сумму и среднее арифметическое чисел от 1 до n.

Answer 1

Ответ:

var i,n,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln(s,s/n)

end.

Объяснение: