Его можно записать так : либо x^(1/5) или просто 1/5
Var x,sn,s:real; n,i:integer;
begin
readln(x,n);
s:=0;
sn:=1;
for i:=1 to n do
begin
sn:=sn*sin(x);
s:=s+sn;
end;
writeln('s = ',s:6:4);
end.
Пример:
0.9 5
<span>s = 2.5490</span>
у тебя все на Украинском!!!!!!!!!
===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.