Составить программу для вычисления суммы - Pascal ABC (14367)

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

Составить программу для вычисления суммы:

Решение задачи: «Составить программу для вычисления суммы»

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

program SUM;
uses crt;
var k:integer;
x,s:real;
begin
clrscr;
write('Введите х  ');
readln(x);
k:=1;
s:=0;
for k:=2 to 20 do
    begin
    s:=s+1+(cos(k*x)*cos(k*x))/(k+x)
end;
writeln('Результат: ');
write (s);
end.

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

В программе используется библиотека crt, которая предоставляет функции для работы с консолью.
Переменная k инициализируется значением 1.
Переменная s инициализируется значением 0.
Задается диапазон значений переменной k от 2 до 20.
Запускается цикл for, который выполняется для каждого значения k в диапазоне от 2 до 20.
Внутри цикла выполняется вычисление суммы: s := s + 1 + (cos(kx) cos(k*x)) / (k + x).
После завершения цикла выводится результат на экран.
Программа завершается.