В Паскале
5-9 класс
|
Дано натуральное n . Вычислить :
P=(1-1/2)(1-1/3)*.....*(1-1/n) где n >2
var i,n,s:integer;
p:real;
begin
readln(n);
p:=1;
for i:=2 to n do begin
p:=p*(1-1/i);
end;
writeln(p);
end.
Другие вопросы из категории
2847 секторов объемом 512 байт.
а) при низком качестве звука: моно, 8 бит, 8 кГц;
клавиатура, джойстик, световое перо, сканер.
3.Монитор, принтер, плоттер, звуковые колонки.
объекты принтер и с труйный принтер?
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Простейшая программа на Паскале будет выглядеть следующим образом:
program upr;
begin
writeln ( ? ); {оператор вывода строки}
end.
Определи, какая фраза пропущена на месте вопросительного знака?
’Hello, World!’
“Lorem ipsum”
Just Another Perl Hacker
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
Задали написать программу на язвке паскаль:вычислить и вывести на экран 8 первых элементов ряда если каждый элемент задан формулой а1= i/sin*i