1. Информатика
  2. Для заданного числа n составьте

Для заданного числа n составьте программу вычисления суммы s=1+1/2+1/3+1/4+…+1/n, где n – натуральное число через repeat

gramasha gramasha    1   24.05.2019 11:43    2

Ответы
GintokiSakata20 GintokiSakata20  20.06.2020 09:53

program raf105;

var  

 i,n: integer;

 s: real;

begin

write('N = ');

readln(n);

repeat

 i:= i+1;

 s:= s+1/i;

until i=n;

writeln('Сумма: ',s);

end.

PascalABC 3.4.2
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ViktorNiktophorov ViktorNiktophorov  17.11.2020 13:12
Проект «Электронный альбом». В данном проекте должен отображаться рисунок сразу после запуска, щелкая в последствии по рисунку, должно открыться диалоговое окно для...
Angelinasokolovich Angelinasokolovich  17.11.2020 13:12
Вставьте пропущенные слова в предложении. Таблица состоит из (1) и (2), а их пересечения называются (3).​...
denis2565 denis2565  11.04.2020 21:42
Выражение записано на языке Паскаль: 3x+6. Какая ошибка допущена? 1. числа записаны без скобок 2. пропущен знак умножения между 3 и х 3. выражение записано без скобок...
viktoriav84 viktoriav84  11.04.2020 21:43
Что вычисляеться?const Sz = 100; // Размер массива var a: array [1..Sz] of integer; N: integer; // Количество элементов в массиве i: integer; begin write( Введите...
5675431 5675431  11.04.2020 21:43
Какая исходная строка у этого алгоритма cc6095a818f971cdf50b7003fc6ff7a1 Ребята выручайте, желательно чтобы было решение не останусь в долгу...
Leonelle Leonelle  11.04.2020 22:00
Что вычисляется? onst Sz = 100; a0 = 5; // Первый элемент арифметической прогрессии d = 3; // Разность арифметической прогрессии var a: array [1..Sz] of integer;...
kuzminasasa64 kuzminasasa64  11.04.2020 22:00
Приведите пример ситуации в которой необходимо группа радиокнопок​...
ромашка261 ромашка261  11.04.2020 22:00
Опишите результат выполнения данной программы (что она делает): Var a,b,c: integer; begin readln(a,b,c); if a b the if a c then writeln(a) else writeln(c) else if...
Hadeyac23 Hadeyac23  21.08.2019 13:00
Дано целое число, найдите в нем повторяющиеся цифры; выведите эти цифры и их количество( на паскале)...
asvpdsh asvpdsh  21.08.2019 13:10
50 составить блок схему для получения s и p прямоугольного треугольника если заданы длины двух катетов a и b алгоритмом...

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