Ответ:
var n,i,sred:integer;
begin
sred:=0;
read(n);
for i:=1 to n do
sred:=sred+i;
end;
write(sred/n:8:2);
end.
Объяснение:
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var n,i,sred:integer;
begin
sred:=0;
read(n);
for i:=1 to n do
begin
sred:=sred+i;
end;
write(sred/n:8:2);
end.
Объяснение: