Даны числа от 1 до N-нечетное. НайтиР: 1/11/3 ...*1/N

Question

Информатика

Федуся

29 октября, 14:04

Даны числа от 1 до N-нечетное. НайтиР: 1/11/3 ...*1/N

+1

Ответы (2)

Знаете ответ?

Пиама · Answer 1

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.

Инга · Answer 2

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.

Даны числа от 1 до N-нечетное. НайтиР: 1/1*1/3* ...*1/N

Даны числа от 1 до N-нечетное. НайтиР: 1/11/3 ...*1/N