1-е
program gg;
var
n,i:integer;
x,sum:real;
begin
writeln("Vvedite N i X");
readln(n,x);
sum:=0;
for i:=1 to n do
sum:=sum+exp(i*ln(sin(x/180*3.14)));
writeln("Summa = ",sum:0:4);
end.
должно работать)
2-е
program gg;
var
i,sum,n,a:integer;
begin
writeln("Vvedite N");
readln(n);
sum:=0...