respons
25.03.2023 04:15

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Lerosha14
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 оценок)
Ответ:
raistarasenko
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 Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота