clrscr; clrscr;
s:=0; n:=15; s:=0; i:=1; n:=15; h:=1;
FOR i:=1 TO n DO s:=s+(i*i+5); WHILE i<=n DO
write('Сумма числового ряда S=',s); begin
End. s:=s+(i*i+5);
i:=i+h;
Program Summa; Uses crt; end;
var s,i,n,h: integer; write('Сумма ряда S=',s);
Begin End.
clrscr;
s:=0; i:=1; n:=15; h:=1;
REPEAT
s:=s+(i*i+5);
i:=i+h;
UNTIL i>n;
write('Сумма числового ряда S=',s);
End.
Найти произведение чисел ряда, каждый элемент которого определяется по формуле (i+1)/iи i изменяется от 1 до 20 с шагом 0.2 , т.е. найти произведение чисел: P=2*1.8333*1.714*1.625*...
Program Mult; Uses crt;
var i,p,n,h: real;
Begin
clrscr;
p:=1; i:=1; n:=20; h:=0.2;
while i<=n do begin p:=p*(i+1)/I; i:=i+h; end;
write('Произведение ряда чисел P=',p);
End.
З А Д А Н И Я:
1. Найти сумму чисел ряда, каждый элемент которого определяется по
формуле (i+5)/i и i изменяется от 1 до 20 с шагом 0.4.
2. Получить таблицу для построения графика функции 
на отрезке [7;15] с шагом 0.4.
3. Найти сумму ряда чисел, каждый элемент которого определяется по
формуле (i+5)/(i*i) и i=1,2,3,4,... . Суммировать до элемента равного 6E-3.
