Как создать программу на Паскале

Для создания программы на Паскале, которая вычисляет сумму s=1/sin(1) + 2/sin(2) + … + n/sin(n), можно использовать следующий код:

“`
program SumOfSine;

var
n, i: integer;
sum: real;

begin
// Ввод количества элементов (n)
write(‘Введите количество элементов (n): ‘);
readln(n);

sum := 0;

// Вычисление суммы
for i := 1 to n do
begin
sum := sum + i / sin(i);
end;

// Вывод результата
writeln(‘Сумма s = ‘, sum);

end.
“`

В этом примере программа считывает количество элементов `n` с помощью функции `readln()`. Затем в цикле `for` происходит вычисление и накопление суммы по формуле s = 1/sin(1) + 2/sin(2) + … + n/sin(n). Результат выводится на экран с помощью функции `writeln()`.

Обратите внимание, что для выполнения математических операций над числами с плавающей точкой, переменная `sum` объявлена как `real`, а для хранения чисел целого типа используется переменная `n, i` объявленные как `integer`.