Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
jhdjshshdh
21.09.2021 13:19 •
Информатика
Составить программу вычисления произведения 10 элементо ряда p=1×3× (2×i-1)
Ответ:
vbbbbb
05.10.2020 20:20
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 1 to 10 do
P:=P*(2*A-1);
WriteLn('P = ',P)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Skotonyaka
25.03.2020 08:14
Перевести число 703048 из десятичной системы в двуичную, в восьмиричную, и шеснадцетиричную; число 2l перевести из шестиричной системы в восьмиричную, и в десятиричную. !...
рано12
08.03.2023 08:51
Примеры чисел с фиксированной запятой...
oDESo
08.03.2023 08:51
Вкодировке utf-8 каждый символ алфавита кодируется шестнадцатью битами. определите количество символов в сообщении ,если информационный объём сообщения в этой кодировке равен...
RCloke
08.03.2023 08:51
Доповнити лічилочку. я знаю такі повідомлення за подання: графічні-...
FenteziV
16.03.2023 20:29
Перевести: 11111 из десятичной системы отсчёта в двоичную, и обратно. 5432 из восьмеричной системы в десятичную, и обратно. 13270 из десятичной системы в восьмеричную, и...
zef3
04.01.2022 22:52
Написать программу , которая вычислит отдельные суммы четных и нечетных чисел натурального ряда и их произведения...
Cfgcyf
04.01.2022 22:52
Вучебнике по информатике 400 кбайт информации. определить, сколько это...
VikusPadididi
19.01.2023 21:48
Рассказ об устройствах для работы с данными...
Djdjdjdjdjje
22.11.2020 05:31
Создать программу которая вычисляет сумму чисел а и б, значения которых вводится с клавиатуры...
fhtyf
04.06.2020 11:26
Переведите десятичное число в двоичную систему: а) 908,12 б)1001,67 в) 450,304 ,инфа 8 класс))...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
A:integer;
P:real;
Begin
P:=1;
For A:= 1 to 10 do
P:=P*(2*A-1);
WriteLn('P = ',P)
End.