Цикл Фор - вычислить!

[Анна22]

S=cosx+cos2x+cos3x+…+cosnx.
решить цикл фор?????спасибо!!!

[alex_fcsm]

var i.n:ineteger;

begin
readln(n);
writeln('Input ugol')
readln(x);
sum:=0;
for i:=1 to n do
 sum:=sum+cos(i*x)
writeln(sum:6:4);
end.

x - угол в радианах, если будите вводить в градусах то напишите эту строчку x:=x/57.19 - в одном радиане 57,19 грдуса

[Анна22]

спасибо!!!

[_-Re@l-_]

x - угол в радианах, если будите вводить в градусах то напишите эту строчку x:=x/57.19 - в одном радиане 57,19 грдуса

Лучше писать 180/pi