Предмет: Информатика,
автор: Tatiana0606
вычислить сумму ряда чисел 1+1/2+1/3+...+1/n,где n вводится пользователем
Ответы
Автор ответа:
0
var
i,n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s);
end.
i,n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s);
end.
Похожие вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Алгебра,
автор: gorbonoskatya07
Предмет: Химия,
автор: Kill9123
Предмет: Физика,
автор: Kamillca
Предмет: Математика,
автор: Милашечка121