- Подробности
- Автор: Super User
- Категория: Паскаль
- Просмотров: 5700
Написать программу на языке Pascal для реализации циклического алгоритма

n – известные величины.
Решение
var i,j,n,zn,factorial:integer;
s,x:real;
begin
writeln;
write('Vvedite n=');
readln(n);
s:=0;
factorial:=1;
zn:=1;
for i:=1 to n do begin
zn:=zn*(-1);
factorial:=factorial*i;
s:=s+(zn*(i+1)/factorial);
end;
writeln('s=',s:4:3);
readln;
end.

n – известные величины.
Решение
var i,j,n,zn,factorial:integer;
s,x:real;
begin
writeln;
write('Vvedite n=');
readln(n);
s:=0;
factorial:=1;
zn:=1;
for i:=1 to n do begin
zn:=zn*(-1);
factorial:=factorial*i;
s:=s+(zn*(i+1)/factorial);
end;
writeln('s=',s:4:3);
readln;
end.