Найти сумму чисел от 100 до 200 и вычислить их среднее арифметическое значение - PascalABC.NET

1)Найти сумму чисел от 100 до 200 и вычислить их среднее арифметическое значение .

Листинг программы

begin
  var n: integer;
   for var i := 100 to 200 do n += i;
   writeln(n/100);
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляется переменная типа integer с именем n. Значение переменной инициализируется нулем.
Запускается цикл for, который начинается с i = 100 и продолжается до i = 200.
Внутри цикла к переменной n прибавляется значение переменной i.
После завершения цикла выводится значение переменной n деленное на 100.

Оцени полезность:

14 голосов , оценка 4 из 5

Похожие ответы