Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ

var i,n,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln(s,s/n)

end.

616
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам