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.
Объяснение:
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.
Объяснение:
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.