Главное меню

Вход на сайт

Кто на сайте?

Сейчас один гость и ни одного зарегистрированного пользователя на сайте

Написать программу на языке Pascal для реализации циклического алгоритма
     
Image    
     
n, х – известные величины.

Решение

var i,j,fact,n:integer;
    s,x:real;
begin
writeln;
write('Vvedite n=');
readln(n);
write('Vvedite x=');
readln(x);
s:=0;
for i:=1 to n do begin
fact:=1;
for j:=1 to i do
Fact:=fact*j;
s:=s+(1/fact+sqrt(abs(x)));
end;
writeln('s=',s:4:2);
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте