Предмет: Информатика,
автор: Nikita31215
Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/N, где N – натуральное число через repeat,помогите
Ответы
Автор ответа:
0
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 = ',s);
end.
PascalABC 3.4.2
Похожие вопросы
Предмет: Математика,
автор: dina31yuzanina10
Предмет: Математика,
автор: crcedwdegrhthth553
Предмет: Английский язык,
автор: kalmaravseserii0
Предмет: Алгебра,
автор: varyakiselewa