Создать программу

[jipumex@cartelera.]

Вычисление значение суммы ряда, если общий член ряда задан в явном виде. N-количество членов ряда (вводится с клавиатуры.) Решить через цикл For.

Спасибо!

[Вадим Мошев]

Теоретически, у вас получится бесконечность. Причём, на первом же шаге.
Практически, вы получите ошибку Division by zero. Как думаете, почему?

Где такое задание вам дали?

[jipumex@cartelera.]

Сообщение от Вадим Мошев

Где такое задание вам дали?

ОАИП - основы автоматизации и программирования, 2 курс политеха.

[Вадим Мошев]

Вот вам программа

var 
	N, i: integer;
	S: real;

begin
	write('N = ');
	read(N);

	for i:=2 to N do begin {не от 1, а от двух, иначе у вас будет деление на нуль}
		S := (5 + i*i) / (1-i);
	end;

	write('S = ', S:5:5);
end.