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

@Вадим777 · Регистрация: 20.08.2015

https://www.cyberforum.ru/atta... 1291782111

Заранее очень благодарен.

@plamennyi · 08.12.2010, 14:38

uses crt;
var i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 20 do
s:=s+1/sqr(i);
writeln('сумма равна=',s:4:4);
end.

кажется так, перепроверь если не трудно, сумму находит, а вот сравнить можно и так, посмотри и скажи: больше, меньше или равно

@Вадим777 1 / 1 / 2 Регистрация: 20.08.2015 Сообщений: 15
		1
	Составить программу для вычисления суммы ряда... 08.12.2010, 07:23. Показов 1225. Ответов 1 Метки нет (Все метки) https://www.cyberforum.ru/atta... 1291782111 Заранее очень благодарен. Миниатюры 0

@plamennyi 0 / 0 / 0 Регистрация: 18.11.2010 Сообщений: 3
	08.12.2010, 14:38	2
	uses crt; var i:integer; s:real; begin clrscr; s:=0; for i:=1 to 20 do s:=s+1/sqr(i); writeln('сумма равна=',s:4:4); end. кажется так, перепроверь если не трудно, сумму находит, а вот сравнить можно и так, посмотри и скажи: больше, меньше или равно 0

Опции темы