S=1-1/2+1/3-1/4+...+1/n - Pascal

S=1-1/2+1/3-1/4+...+1/n - Pascal

Задать свой вопрос
1 ответ
Var i,n,s:integer;

begin

writeln ('Введите n');

readln(n);

s:=0;

for i:= 1 to n do

begin

S:=s+1/i;

end;

writeln('Сумма одинакова - ',s);

end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт