Написать программу в паскале для вычисления суммы ряда sn=1+1/2+1/3++1/n, где n – натуральное число, вводимое с клавиатуры

tititititititi tititititititi    1   25.06.2019 06:20    2

Ответы
agzamov03 agzamov03  02.10.2020 10:48
Var  sum: real;  i, n: integer;
begin 
readln(n); 
sum := 0; 
for i := 1 to n do   
sum := sum + 1 / i; 
writeln(sum:3:3);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика