Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nastyabelgina1
25.10.2021 15:48 •
Информатика
Вычислить 1/(n+1)! составить программу. паскаль
Показать ответ
Ответ:
krivitskaya1
03.10.2020 08:22
//Pascal ABC.NET v3.1 сборка 1172
Var
n,k,i:integer;
r:real;
begin
readln(n);
k:=1;
for i:=1 to n+1 do
k:=k*i;
r:=1/k;
writeln(r);
end.
Пример ввода:
1
Пример вывода:
0.5
0,0
(0 оценок)
Популярные вопросы: Информатика
LeadingLady
15.02.2021 14:32
Информатика 5. компьютерная программа. вася написал в своей программе следующие строки: если вася = вася то вывод 1 иначе вывод 0 все вася уверен, что его компьютер полностью...
DanilOtlicnic
03.12.2022 14:13
Вчем заключается программный принцип работы пк?...
MedinaIsk
24.08.2021 09:25
7. Вычислить значение логического выражения, если X = Ложь, У = Истина, Z = Ложь: а) X и не (Z или У) или не Z; б) не X или X и (У или Z); в) (X или У и не Z) и Z. 8. Вычислить...
nastiksergi7
11.10.2022 04:57
Дано предложение: «Великий, могучий, правдивый и свободный русский язык». Каждый символ данного предложения закодирован 2 байтами в одном из представления Unicode. Определите...
ПиЗоНтИк
05.04.2023 19:09
Как скачать фар край 6 в 08.11.2020...
MogekoKcalb
17.06.2020 18:57
Пишет Неизвестное имя cls . ПОЧЕМУ? program pr0611; var a: array [1..300] of integer; i,k,m: integer; begin cls; randomize; for i:=1 to 300 do a[i]:= 10+random(90); writeln;...
даник293
30.03.2020 05:18
Автоматическое использование программы...
шогвшвгвшр
09.08.2022 12:39
Решить и как надо ее написать капитан врунгель, фукс и лом дали концерт в гостинице веселая селедка. в зале было 49 мужчин и 21 женщина. все зрители разместились поровну...
Kirill6767
09.08.2022 12:39
Сочинение на тему защита птиц на казахском языке....
maria20061970
09.08.2022 12:39
Вмагазине имеется два бочонка сельди одного сорта. стоимость сельди в одном бочонке равна 1872 р., а во втором — 2376 р., причём во втором бочонке сельди на 14 кг больше,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
n,k,i:integer;
r:real;
begin
readln(n);
k:=1;
for i:=1 to n+1 do
k:=k*i;
r:=1/k;
writeln(r);
end.
Пример ввода:
1
Пример вывода:
0.5