ВИКОНАТИ В LAZARUS ЧЕРЕЗ WHILE ! ІНФОРМАТИКА 8 КЛАС РИВКІНД!
100 БСтворіть проєкт для обчислення середнього арифметичного додатних чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане додатне число. Збережіть проєкт у папці з іменем Завдання 6.11.8, створеній у вашій папці.
100 БСтворіть проєкт для обчислення середнього арифметичного додатних чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане додатне число. Збережіть проєкт у папці з іменем Завдання 6.11.8, створеній у вашій папці.
Answers & Comments
Ответ:
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.
Объяснение:
можете позначити як краща відповідь, якщо допоміг, буду дуже вдячний)