Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
virki2018
07.01.2021 03:39 •
Информатика
Написать программу через цикл while "найти произведение: p=(1+x) *(3+2x) *(5+ (n множителей). заранее )
Показать ответ
Ответ:
nomeNome13No
04.08.2020 10:03
Var
n: integer;
x:real;
p:double;
begin
Writeln('Введите n и x');
Read(n);Readln(x);p:=1;
while (n > 0) do
begin
p:= p * (1 + 2*(n-1) + n*x);
n:= n - 1;
end;
Writeln(p);
end.
Пример:
Введите n и x
3 2
231
0,0
(0 оценок)
Популярные вопросы: Информатика
kami654
21.01.2022 15:25
Сколько времени потребуется для ввода в память компьютера текста на 86 страницах с сканера и программы ABBYY FineReader, если известно, что на сканирование одной страницы уходит...
2899101714lp
25.12.2020 22:17
Образец таблицы Вход 1 2 урок 5 10 11 Выход о д Не могу п д о Вход осень 75 45 645 24 2000 Выход Не могу д д т д ч Вход …. …. …. …. …. …. Выход …. …. …. …. …. …. Решить информатика...
vovadavydov56
31.12.2022 15:55
В первой строке дано число N (0 N 105). Во второй строке через пробел даны N чисел. Необходимо определить сколько четных чисел расположены на четных местах. Пример ввода: Пример...
romic123
03.10.2021 06:33
Що буде результатом виконання даного циклу в мові програмування Free Pascal? *...
Ka090907
28.12.2022 07:30
с шифра ЦЕЗАРЯ зашифруй слово ПАРТА Шаг позиции равен 3...
555Maura555
08.06.2020 10:37
2 Дано действительное число а. Вычислить f(a), если 0 при x =0,{ x²-x при 0 x²-sin πx² в остальных случаях и с блок схемой...
dashamaer1
22.06.2022 01:08
Здраствуйте построить орграфы по приведенным данным:...
kaliyeva2006amina
19.03.2020 07:51
Укажи диапазоны значений основных характеристик для домашнего компьютера. Выбери из списка правильный вариант ответа:1. Тактовая частота в диапазоне 3–4 ГГц, емкость HDD не более...
sametovarnur
27.10.2021 05:43
На рисунке справа схема дорог между некоторыми объектами изображена в виде графа, в таблице содержатся сведения о длинах этих дорог (в километрах). Так как таблицу и схему рисовали...
Воряк
22.08.2022 08:31
Вычислите значение функции у, заданной интервально, при необходимости проверьте область определения:Система уравненийy= {(корень cos x) x 7...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n: integer;
x:real;
p:double;
begin
Writeln('Введите n и x');
Read(n);Readln(x);p:=1;
while (n > 0) do
begin
p:= p * (1 + 2*(n-1) + n*x);
n:= n - 1;
end;
Writeln(p);
end.
Пример:
Введите n и x
3 2
231