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

@oculus37 · Регистрация: 18.10.2015

Составить программу для вычисления суммы:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=2}^{20}(1+\frac{{cos}^{2}kx}{k+x})$

@Kapytan · 02.11.2015, 10:13

Pascal

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.

@Эльвинка · 02.11.2015, 12:02

заданное чытерехзначное число читается одинаково слева направа и справа налево

@ZX Spectrum-128 · 02.11.2015, 21:00

Эльвинка, создайте, пожалуйста, свою собственную тему.

@oculus37 0 / 0 / 2 Регистрация: 18.10.2015 Сообщений: 19
		1
	Составить программу для вычисления суммы 29.10.2015, 20:52. Показов 1005. Ответов 3 Метки нет (Все метки) Составить программу для вычисления суммы: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=2}^{20}(1+\frac{{cos}^{2}kx}{k+x})$ 0

@Эльвинка 0 / 0 / 0 Регистрация: 02.11.2015 Сообщений: 1
	02.11.2015, 12:02	3
	заданное чытерехзначное число читается одинаково слева направа и справа налево 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	02.11.2015, 21:00	4
	Эльвинка, создайте, пожалуйста, свою собственную тему. 0

Опции темы

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

Решение