Тимур
4 год назад
Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане число.
ОТВЕТЫ
Valeriya
Oct 24, 2020
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
Смежные вопросы:
