Предмет: Информатика,
автор: 6886611
Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+...+1/
N, где N – натуральное число.
Ответы
Автор ответа:
23
var
i, n: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s);
end.
i, n: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s);
end.
Интересные вопросы
Предмет: Українська мова,
автор: kei2006
Предмет: Другие предметы,
автор: aleksa270504
Предмет: Английский язык,
автор: Куказопа
Предмет: Английский язык,
автор: wertikik
Предмет: Математика,
автор: jjjj11534