< >

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

Ответы

Ответ дал: Sky09
0

Program abc;

var P:real; N,x:integer;

begin

Readln(N);

P:=1;

For x:=1 to N do

P:=P* 1/x;

writeln(P);

end.

Похожие вопросы
Английский язык
2 года назад
What ... you... last year ? (collect) поставить в правильную форму пожалуйста
Русский язык
2 года назад
Разберите слово по составу Слово:принесла.
Математика
7 лет назад
помогите пожалуйста решить
Математика
7 лет назад
Пожалуйста помагите заранее спасибо))
Литература
10 лет назад
Сравнительная характеристика Насти и Митраши из Кладовой солнца. По пунктам: 1.Поведение в слепой елани 2.Какие уроки сделала для себя герои
Математика
10 лет назад
сравните числа: а)2 и 10/5 б)15/3 и 4 в)16/2 и 21/3 г)66/22 и 111/37
Алгебра
10 лет назад
Составьте уравнение по условию задачи,обозначив буквой х количество огурцов в первой корзине. В двух корзинах лежат огурцы,причём во второй корзине огурцов  в 3 раза больше,чем в перввой.После
Физика
10 лет назад
катер, трогаясь с места, за 2,5 с набирает скорость 43,2 км/ч. с каким ускорением движется катер? чему равно его перемещение за это время?