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

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

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

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

textual
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.

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ