26.05.2021, 10:30
общий
это ответ
[code lang=pascal]uses crt;
var n,i,s:integer;
p:real;
begin
clrscr;
repeat
write('Введите натуральное n>2 n=');
readln(n);
until n>2;
s:=0;
for i:=3 to n do
s:=s+i-2;
p:=s/(n+1)+n*n*n;
writeln('В цикле for P=',p:0:3);
i:=3;
s:=0;
while i<=n do
begin
s:=s+i-2;
i:=i+1;
end;
p:=s/(n+1)+n*n*n;
writeln('В цикле while P=',p:0:3);
i:=3;
s:=0;
repeat
s:=s+i-2;
i:=i+1;
until i>n;
p:=s/(n+1)+n*n*n;
writeln('В цикле repeat P=',p:0:3);
readln
end.[/code]