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