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

Question

Информатика

Нора

25 августа, 06:50

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

+3

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