Даны числа от 1 до N-нечетное. Найти Р:
5-9 класс
|
1/1*1/3*…*1/N
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.
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.
Другие вопросы из категории
ТЕСТИРОВАНИЯ КОМПЬЮТЕРА
ОБЕСПЕЧИВАНИЯ РАБОТОСПОСОБНОСТИ КОМПЬЮТЕРА
УМЕНЬШЕНИЯ ОБЪЁМА ФАЙЛОВ
1)создать каталог мин
2)открыть каталог мин
3)создать каталог 1
4)открыть каталог 1
5)создать каталог 11
6)подняться на один уровень вверх
7)создать каталог 2
8)подняться на один уровень вверх
9)создать каталог МАХ
Изобразите файловую структуру,которая будет сформирована на диске D:после совершения этих действий.
переведи в килобайты
81092 бит
1536 байт
0,9 мегабайт
0.03 гигабайта
Читайте также
3) Даны числа от 1 до n. Найти сумму чисел кратных 5, но не кратных 7.
Помогите пожалуйста!!!)))))
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
Пример вывода ответа: 5*2 = 10
6*2 = 12 и т.д.
2) Напишите программу перевода расстояния из метром в сантиметры для значений длин от 1 до 15 метров.
(Информатика. 8 класс. Паскаль)
зависимости от времени суток. Пример: Введите число от 0 до 24: 12 Добрый день!"