1. Даны числа от 1 до N.Найти S: 1/2+1/3+…+1/N
1. Даны числа от 1 до N.Найти S: 1/2+1/3+…+1/N
Гость
Ответ(ы) на вопрос:
Гостьvar i,n:integer; s:real; begin repeat write ('N = ');readln(n); until (n>0); s:=0; for i:=1 to n do s:=s+1/i; writeln ('S = ',s:0:4); readln; end.
Не нашли ответ?
Похожие вопросы