Найдите произведение ряда 1*1/2*1/3*//*1/n, n вводит пользователь. программирование паскаль.
Пвлчлчпс
3
04.07.2019 01:40
0
Другие вопросы по теме Информатика
RokkuKun
09.10.2019 21:09
1234942
09.10.2019 21:11
Трамбовщик
09.10.2019 21:11
Bois123543
09.10.2019 21:13
nastenka19832
09.10.2019 21:14
БелинскихАнастасия11
21.06.2019 21:40
Gobbygo
06.09.2020 23:53
Sveta0202
19.06.2019 13:50
annasavchenko5
13.04.2020 19:36
Популярные вопросы
- Есть таблица с разными чипсетами. Нужно заполнить строки: 1) Socket2) CPU...
2 - Опорний апарат ракоподібних і павукоподібних?...
1 - С какими героями сражались семь богатырей? Заранее...
2 - В сосуде находятся два шарика, которые упруго сталкиваются между собой и...
2 - Решите b3 до c1 включительно...
1 - Опираясь на данные примеры, расскажите о том, как об разуются сложные имена...
1 - q1=1*10^-9кл q2=2*10^-9кл q3=3*10^-9кл...
2 - Упражнение 56 русский язык 6 класс Давидюк...
3 - составить 7 вопросов к 4 действию комедии Горе от ума ...
3 - Составьте тезис для внешней политики России во второй половине XVI в....
1
P:real;
N:integer;
Begin
P:=1;
Write('N = ');
ReadLn(N);
For N:= 1 to N do
P:=P/N;
WriteLn('Произведение ряда равно ',P)
End.
p:real;
begin
writeln ('n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*1/i;
writeln('p=',p);
readln;
end.