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

Question

Информатика

Христоша

29 октября, 16:19

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

+4

Ответы (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