Создайте проект для вычисления среднего арифметического положи- тельных чисел, первое из которых равно 100, а каждое следующее меньше предыдущего на заданное положительное число.
Язык не принципиален?
Принципиален. Лазарус
Жаль, я уже сделал в пайтоне. Всего хорошего
PascalABC не пойдёт?
Можно и Паскаль
var
i, n, sum: integer;
begin
i := 100;
readln(n);
while i > 0 do
sum += i;
i -= n;
end;
writeln('Ответ: ' + sum / (100 div n));
end.
Можно 100 вынести в константы, если хочешь, а так все правильно считает
Ой, забыл добавить чётных, сейчас исправлю, не удаляй
nvm
Спасибо