Составить программу в pascalabc с применением цикла 50 ​

Aleksandrik0806 Aleksandrik0806    1   06.04.2019 11:38    2

Ответы
агтл агтл  28.05.2020 18:24

program abc;

var n,x: integer;

s: real;

begin

s:=0;

x:=1;

readln(n);

while x<=n do

begin

s:=S+(exp(2*ln(sin(x)))+cos(sqrt(x)));

x:=x+1;

end;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика