Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
lidochka4
03.01.2023 03:34 •
Информатика
P=(1+1/1)(1+1/+1/n) составить программу вычисления. на языке паскаль.
Ответ:
Danich20
25.09.2020 01:55
Var p:real;
n,i:integer;
begin
readln (n);
p:=1;
for i:=1 to n do
p:=p*(1+(1/i));
writeln (p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
abidat1122
02.03.2021 11:20
Дано число 1,5402E−3. Нормализованная экспоненциальная запись данного числа:...
камила905
19.01.2023 17:03
Является ли префиксным код 101 100 1010 1011 10111, с объяснением....
boom1980
04.05.2022 20:24
1Мб и 1026Кб какой знак будет между ними...
vladinfo1
09.11.2022 15:48
Векторлык графиканы сызатын косымшалар...
auutumn1
13.04.2021 16:47
Сообщение о Логическом и По информатике 7 класса...
paninvla2018
27.11.2022 04:05
С ресурсов сети Интернет найдите дополнительную информацию о происхождении слова «алгоритм». Подготовьте небольшое сообщение на эту тему. ОООЧЕНЬ НУЖНО АООАОАОА...
Lubafili2017
21.04.2021 08:17
В архiваторi WinRAR заaрхiвiрувати три файли та порiвняти ïх вихiдний розмiр з заархiрованим. Занести данi у таблицю...
Danusja13
23.01.2022 07:20
Василько взяв великого циркуля та зайшов до кімнати, підлога якої являє собою квадрат зі стороною рівною M. Поставивши циркуль на перетині діагоналей цього квадрата...
Таиса432156789
01.11.2022 02:04
Что будет выведено в результате работы следующей программы: a = 1; b = 2 c = 3; d = 4; e = 5 print( {:4d} .format(a) ) print( {:3d}{:2d} .format( b, b ) ) print(...
EzVikaEz
25.07.2021 19:12
Составить таблицу истинности данного логического выражения и построить логическую схему...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
n,i:integer;
begin
readln (n);
p:=1;
for i:=1 to n do
p:=p*(1+(1/i));
writeln (p);
end.