Войти Регистрация Спроси ai-bota

Вычислить произведение: 1/2*1/3**1/n

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

ВикаБрагина2005

26.01.2020 11:29

Adobe photoshop және CorelDRAW бағдарламаларының артықшылығы мен кемшіліктерін атаңдар...

solnyshko46

15.02.2020 09:03

Письмово: описати властивості і значення властивостей об єкта cскретч...

kateshopina0703

07.02.2023 18:31

Шифр кодового замка представляет собой последовательность из трех символов , каждый из которых является одной из цифр от 1 до 9 . сколько различных вариантов шифра можно задать,...

BaVeRSB

28.01.2021 06:19

Какие из перечисленных ниже устройств относятся к внешним? монитор, процессор, оперативная память, принтер, клавиатура, жёсткий диск, флэш-память, колонки...

K1rysha

11.01.2020 16:28

Напишите программу на с++, которая вводит натуральные числа от а до b, и выволит сумму квадратов натуральных чисел от а до b....

Ксения26941479

08.02.2020 13:57

Найти сумму номеров отрицательных элементов массива h=(h1, hn) . ввод с клавиатуры, язык java...

ЯхочуВхогвартс

18.02.2020 17:28

111) для узла с ip-адресом 138.75.241.160 адрес сети равен 138.75.240.0. для скольких различных значений маски это возможно? !...

buharowaalina

01.11.2020 00:37

Восстановите ip адрес по фрагментам. в ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем ip адресу. а) 2.17-а; 16-б; .65-в; 8.121-г. б)а-4.243;...

MoLNiyaStaR

19.07.2022 16:01

Надо идею , о чём этот стих , чему учит стих , какой размер стиха , какая рифмовка к стиху бородино . крч анализ...

TaNyAmAkSiMeNkO

08.01.2020 08:24

Знайдіть cos кутів abc, якщо а(1; 5) в(4; 1) с(7; -3)найдите косинусы углов треугольника авс...

Ответ:

Isabekov1

02.08.2020 17:53

Var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1/i);
writeln('p = ',p);
end.

Пример:
n = 5
p = 0.00833333333333333

0,0(0 оценок)

Ответ:

sarah205681

02.08.2020 17:53

Program kek;
var s.i,n:integer;
s:=0;
readln (n);
for i to n do
s:=s+1/i;
write ('сумма равна ', s);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку