написать программу в pascal, которая вычисляет сумму S последовательности 1/1+1/2+1/3+.. .1/п

Написать программку в pascal, которая вычисляет сумму S последовательности 1/1+1/2+1/3+.. .1/п

Задать свой вопрос
1 ответ

program raf105;

var

 n,i: integer;

 s: real;

begin

 write('n = ');

 readln(n);

 for i:=1 to n do

   s:= s+1/i;

 writeln('s = ',s);

end.

PascalABC 3.4.2

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


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

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

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

Войти на сайт