Найдите произведение ряда 1*1/2*1/3*//*1/n, n вводит пользователь. Программирование Паскаль.
Var
P:real;
N:integer;
Begin
P:=1;
Write(N = );
ReadLn(N);
For N:= 1 to N do
P:=P/N;
WriteLn(Произведение ряда равно ,P)
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
