Напишите программу на языке Pascal. Программа должна находить сумму чисел заданных формулой, в отчёте укажите листинг программы.S=sin3x+sin4x+sin5x+...+sin11x

Предыдущий
вопрос Следующий
вопрос

program SumOfSines;
var
x: real;
i: integer;
sum: real;
begin
write('Enter the value of x: ');
readln(x);
sum := 0;
for i := 3 to 11 do
begin
sum := sum + sin(i*x);
end;
writeln('Sum of sin(3x) + sin(4x) + ... + sin(11x) = ', sum:0:2);
end.

В данной программе пользователю предлагается ввести значение переменной x, после чего программа вычисляет сумму sin(3x) + sin(4x) + ... + sin(11x) и выводит результат на экран.