Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ifreemadozzlqu
22.06.2021 00:51 •
Информатика
Найти произведение всех нечетных чисел от числа "а" до числа "b"
Показать ответ
Ответ:
Human333
05.10.2020 21:57
Program n1;
var a,b,i: integer;
p: real;
begin
p:=1;
readln(a,b);
for i:=a to b do if i mod 2<>0 then p:=p*i;
write(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
черныйЗайка
05.01.2020 12:31
Заполните массив степенями числа 2( от 2(в первой степени) до 2(в n степени) паскаль abc net...
kuznetsovakristina
06.05.2020 17:38
Перевести числа в десятичную систему счисления: а816...
aculkow2017
06.05.2020 17:38
С++ дан номер месяца (1 – январь, 2 – февраль и т. вывести на экран название месяца. !...
svetik040201p01o4x
16.09.2022 16:08
3. в одномерном массиве а(10)найти максимальный элемент....
Fluttershy22102005
03.10.2020 23:24
2. дан массив из n элементов. определить количество элементов, имеющих четные порядковые номера и являющихся нечетными числами....
КариM
08.01.2021 19:28
1. в одномерном массиве а(10) вычислить среднее арифметическое квадратов положительных элементов....
AnnaFruzanna
14.07.2020 09:00
Составьте программу , которая с четырьмя произвольными числами а х z w введенными с клавиатуры производит вычисления по следующим формулам : b = (z²- a²) 7,5- 3 (z³ + w)² + 3x / 25xaw...
Аминочка8
14.07.2020 09:00
Вцикле с клавиатуры вводятся 10 целых чисел. вычислить процент чѐтных чисел и процент нечѐтных....
SizovaOlay
11.06.2022 07:31
Составить программу расчета значения функции y=12a^2+7a-16 при любом значении а...
lolipop1720
28.08.2022 23:45
Переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления.а) 279; б) 781; в) 841; г) 508....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,i: integer;
p: real;
begin
p:=1;
readln(a,b);
for i:=a to b do if i mod 2<>0 then p:=p*i;
write(p);
end.