Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kolyaan321
10.06.2022 04:28 •
Информатика
Написать программу через цикл while "найти произведение: p=(1+x) *(3+2x) *(5+ (n множителей). заранее )
Показать ответ
Ответ:
pikachu7bitch
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 оценок)
Популярные вопросы: Информатика
суперкотик4
21.09.2022 09:23
Определите, что появится на экране в результате выполнения данного фрагмента программы: a:=2; b:=a*2*2+2; writeln(a,b,a+b,a);...
щгоот
28.12.2021 08:46
2. Создайте документ под названием WordART. В этом усоздайте 5 экземпляров объекта WordART. К каждомпляру примените различные форматированияKHMra-RULOUR SHONMAM...
wwwvadimsokol
21.03.2023 00:36
Черно-белая фотография разбита на точки, каждая из которых кодируется шестью битами информации. каков информационный объем фотографий 5х8 см, если один квадратный сантиметр...
rgmabbasov
21.03.2023 00:36
Визначте, скільки бітів інформації містять наведене повідомлення. було отримано телеграму: зустрічайте, вагон №7 . відомо, що в складі потягу 16 вагонів. отже, було отримано...
sok6
01.10.2022 05:30
Нужно написать на паскале. напишите программу которая задевает массив из n элементов случайными целыми числами в диапазоне [а, в] и определяет количество чисел в массиве...
спирина1
18.02.2022 18:54
Вычислите значение целочисленной переменной c при a = 26 и b = 6: а) c = a % b + b б) c = a // b + a в) b = a // b c = a // b г) b = a // b + b c = a % b + a д) b = a...
tony23
04.02.2022 11:11
Мистер Фокс перекодировал послание на русском языке с 16-битной кодировки Unicode в 8-мибитную кодировку КОИ-8. Объем файла в ходе данного процесса уменьшился на $32$...
uhjvjvjkybz
04.07.2020 04:44
Упростите логическое выражение...
viti2000
08.08.2021 12:39
Напишите предложения в отрицательной форме: 1. john has already had lunch in the cafe. 2. we will take the children to the park soon. 3. you are doing this exercise correctly....
89300044
16.05.2021 03:19
Какие степени окисления наиболее характерны для атомов элементов : калий, никель, мышьяк, азот. примеры соединений, включающих в состав атомы с типичной степенью окисления...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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