Написать программу которая вычислит сумму 1+ / + / +... +

Написать программку которая вычислит сумму
1+ / + / +... + /

Задать свой вопрос
1 ответ
Var i:integer;
s:real;
begin
s:=0;
for i:=1 to 50 do 
s:=s+1/i;
write('Сумма: ',s:5:2);
readln;
end.
Ева Жмакина
спасибо огромное,ты меня очень выручила
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт