Размещено 5 лет назад по предмету
Информатика
от lordd007
можно ли записать данную программу используя циклы While и Repeat?Если да то предложите свой вариант. program 5; uses crt; var i,n:integer ; x,y,s,p: real; begin x:=4.1; S:=0; P:=1;n:=10; for i:=1 to n do begin s:= s+ ln(sqr(x)+I); P:= p*(i+4*cos(x+I)); end; Y:= s+p; writeln('___x=',x:5:1,'___Y=',y:10:2); writeln('___s=',s:5:3,'___P=',p:10:2); end.