Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n - Turbo Pascal

Формулировка задачи:

2. Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n

Решение задачи: «Дано натуральное число n. Вычислить cos1/sin1 x cos1+cos2/sin1+sin2 x....x cos1+...+cos n/sin1+...sin n»

Листинг программы

uses crt;
var n:i integer;
k,c,s:real;
q:stribg;
begin
writeln('BBeguTe n ');
readln(n);
k:=1;
c:=0;
s:=0;
for i:=1 to n do 
begin
c:c+cos(i);
s:=s+sin(i);
k:=k*(c/s);
end;
writeln('Результат=',k:0:5);
writeln('Для выхода нажмите q');
readln(q);
until q='q';
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет вычисления, описанные в постановке задачи.

Строка uses crt; подключает стандартную библиотеку Turbo Pascal, которая включает в себя функции для работы с числами с плавающей точкой (тип real).
Переменная n объявлена как целочисленная (i integer).
Переменные k, c и s объявлены как числа с плавающей точкой (real).
Переменная q объявлена как тип stribg, который представляет собой строку символов, используемую для вывода результатов.
Строка writeln('BBeguTe n '); выводит сообщение «BBeguTe n ».
Строка readln(n); считывает целочисленное значение от пользователя и сохраняет его в переменной n.
Переменная k инициализируется как 1.
Переменная c инициализируется как 0.
Переменная s инициализируется как 0.
Для i от 1 до n выполняется цикл.
Внутри цикла переменная c обновляется как сумма cos(i) и предыдущего значения c.
Переменная s обновляется как сумма sin(i) и предыдущего значения s.
Переменная k обновляется как k*(c/s), то есть как произведение k и c/s.
Цикл повторяется для каждого значения i.
После завершения цикла выводится результат, который является значением k.
Строка writeln('Результат=',k:0:5); выводит результат в формате с пятью десятичными знаками.
Строка writeln('Для выхода нажмите q'); выводит сообщение «Для выхода нажмите q».
Строка readln(q); считывает ввод пользователя и сохраняет его в переменной q.
Программа продолжается до тех пор, пока пользователь не введет «q».
Программа завершается.