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

Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане число.

ОТВЕТЫ

var

 i, n, sum: integer;

begin  

   i := 100;

   readln(n);

   while i > 0 do  

   begin

       sum += i;

       i -= n;

   end;

  writeln(': ' + sum / (100 div n));

end.

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