Ответ(ы) на вопрос:
Гостьvar x,s:real; i:integer;
begin
write('x = '); readln(x);
s:=0;
for i:=1 to 7 do s:=s+sin(i*x)/(2*i);
writeln('s = ',s);
end.
Пример:
x = 0.5
s = 0.776543128538373
Не нашли ответ?
Похожие вопросы