Вопрос школьника по предмету Информатика
Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 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.
Похожие вопросы от пользователей