Question

ВИКОНАТИ В Lazarus ЧЕРЕЗ while.Інформатика 8 клас РИВКІНД! 99 БАЛІВ!Створіть проєкт для обчислення середнього арифметичного додатних чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане додатне число.6.11.8​

Answer 1

Ответ:

program AveragePositiveNumbers;

var

n, a, sum: integer;

average: real;

begin

{ Введення значення a }

a := 6;

{ Ініціалізація змінних }

n := 1; { номер першого додатного числа }

sum := 100; { сума попереднього додатного числа }

{ Пошук наступних додатних чисел та їх додавання до суми }

while (sum >= 0) do

begin

{ Обчислення наступного додатного числа }

n := n + 1;

a := a - 1;

{ Додавання до суми, якщо наступне число є додатним }

if (100 - n * a > 0) then

sum := sum + 100 - n * a;

end;

{ Обчислення середнього арифметичного }

average := sum / (n - 1);

{ Виведення результату }

writeln('Середнє арифметичне додатних чисел = ', average:0:2);

end.

Объяснение:

можете позначити як краща відповідь, якщо допоміг, буду дуже вдячний)