Question

Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане число.

вот код почему не компилится
var i, n: integer;
var x: integer;
begin
i:= 100;
readln (n);
while i > 0 do
begin
x += i;
i -= n;
end;
writeln(x div (100 div n));
end.

Answer 1

var

 i, n: integer;

 x: integer;

begin

 i := 100;

 readln(n);

 while i > 0 do

 begin

   x := x + i;

   i := i - n;

 end;

 writeln(x div (100 div n));

end.