1. Информатика
  2. S=1+1/2+1/3+1/4++1/n pascal.

S=1+1/2+1/3+1/4++1/n pascal. решить с циклом while

моюр моюр    1   23.09.2019 06:10    0

Ответы
спасибо88 спасибо88  08.10.2020 11:36
Program abc;

var
  n, i: integer;
  s: real;

begin
  write('Введите n: ');
  readln(n);
  for i := 1 to n do
    s := s + 1 / i;
  write('s= ', s);
end.

S=1+1/2+1/3+1/4++1/n pascal. решить с циклом while
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Denmatyanov Denmatyanov  11.04.2019 11:17
Проанализировать представленый код, исправить логические и синтаксические ошибки. опеределить, какая стояла перед программистом. добавить комментарий к каждой строчке программы,поясняющий,...
Foxxx11 Foxxx11  11.04.2019 13:12
Даны три числа x y z вычислить квадратные корни тех из них значения которых положительны и корни кубические тех значения которых отрицательны​...
1o10019soos 1o10019soos  11.04.2019 13:11
Написать программу вычесления значения z,если 1) a b,то z: =a-b. 2) если a...
ArhangelTYT ArhangelTYT  11.04.2019 13:09
Ввести целое число а и вывести сумму всех чисел от 1 до а паскаль! (через begin )...
погипж погипж  19.07.2019 09:20
Qbasic ввести два числа и увеличить большее на введенное третье...
Арбуз2200047 Арбуз2200047  19.07.2019 09:20
Var sumsec: integer; var hour,min,sec: integer; l: integer; begin writeln ( введите суммарное кол-во секунд ); readln (sumsec); l: =sumsec div 60; sec: =sumsec mod 60; hour:...
333ч 333ч  19.07.2019 09:20
Сканируется цветное изображение размером 25×30 см. разрешающая сканера 300×300 dpi, глубина цвета- 3 байта.какой информационный объём будет иметь полученный графический файл?...
Анюта10072401 Анюта10072401  09.09.2019 07:00
Составьте программу, определяющую, является ли последняя цифра введенного целого числа (любого) четной ли нечётной...
mranishanbaev mranishanbaev  09.09.2019 07:00
Что такое обратная связь в процессе...
aaaa1111111111 aaaa1111111111  09.09.2019 07:00
Из чисел a, b, c и d введенных с клавиатуры, вывести порядковый номер наименьшего из них....

Популярные вопросы