Консультация № 200965
26.05.2021, 08:19
0.00 руб.
1 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:
Написать 3 варианта программы на паскаль турбо с использованием операторов for, while, repeat until для решения задачи: задано целое положительное число n. Определить значение выражения на скрине
Прикрепленные файлы:
Screenshot_20210526_081906.jpg

Обсуждение

давно
Профессор
401888
1232
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]
Форма ответа