Даны числа от 1 до N.Найти Р: 1/1*1/2*…*1/N
Даны числа от 1 до N.Найти Р: 1/1*1/2*…*1/N
Гость
Ответ(ы) на вопрос:
Гостьuses Crt;
var i,n :integer; p:real;
begin
p:=1;
readln(n);
for i:=1 to n do
p:=p*(1/i);
writeln(p);
readln
end.
ГостьProgram abc; var P:real; N,x:integer; begin Readln(N); P:=1; For x:=1 to N do P:=P* 1/x; writeln(P); end.
Не нашли ответ?
Похожие вопросы