Даны числа от 1 до N-нечетное. Найти Р: 1/1*1/3*…*1/N
Даны числа от 1 до N-нечетное. Найти Р: 1/1*1/3*…*1/N
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var S:real; N,x:integer;
begin
Write('Write nî');
Readln(N);
if (n mod 2 <> 0) then
begin
S:=0;
For x:=1 to N do
S:=S* (1/x);
writeln(s);
end
else
writeln('error N chetnoe!!');
end.
ГостьProgram abc; var P:real; N,x:integer; begin Write('Введите нечетное число'); Readln(N); P:=1; For x:=1 to N do begin P:=P*(1/x); x:=x+2; end; writeln(P); end.
Не нашли ответ?
Похожие вопросы