Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
nogtev70
13.04.2020 23:24 •
Информатика
Найти произведение нечетных чисел на промежутке от 1 до 8
Ответ:
сонечка281006
02.10.2020 13:29
Var p,i: integer;
begin
p:=1;
for i:=1 to 8 do
if (i mod 2 <> 0) then
p:=p*i;
writeln(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SofiShidlFox
03.08.2020 23:49
(с объяснением, ибо у меня не получилось)определите результат работы следующего алгоритма: а) взять максимальное однозначное нечетное число. б) сложить его с минимальным натуральным...
olya2010
03.08.2020 23:49
Нарисуй дерево в окошке, все вершины которого корневые....
aaalino4ka
04.10.2020 23:33
Нужно написать полноценную программу на паскале Используя оператор условного перехода, напишите программу, которая: 1) классифицирует компьютерную сеть. Программа запрашивает у пользователя...
darianeklydova1
04.02.2020 00:04
Led монитор плюсы и минусы...
eremitsa2011
02.11.2021 18:12
Почему размер экрана определяется в дюймах?...
янивановсергеевич
16.06.2022 23:31
Записать и решить задачу , используя команду int ( input ()) в Python : Ручка стоит А тг, карандаш стоит В тг , линейка стоит С тг. Посчитайте сколько денег понадобится что бы купить...
ученик1862
19.04.2021 11:01
Даны 3 числа a b c возвести в квадрат тока отрицательные через qbasic...
vanyushagay96
19.04.2021 11:01
Даны 3 числа a b c возвести в квадрат только отрицательные черeз qbasic...
BelkaNext
11.06.2021 22:55
Определить объем информации в сообщении смоленск город-герой...
В1к11
11.06.2021 22:55
Надо составить 5. сложных предложений из 3 простых предложений!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
p:=1;
for i:=1 to 8 do
if (i mod 2 <> 0) then
p:=p*i;
writeln(p);
end.