Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
vitalikpalamarc
15.08.2020 02:37 •
Информатика
1. используя цикл for вывести на экран чётные числа от 1 до 40 2. найдите произведение нечётных чисел от 1 до n
Показать ответ
Ответ:
lianabalkoewa
04.10.2020 02:11
1.
var i:integer;
begin
for i:=1 to 40 do
if not odd(i) then write(i:3);
end.
2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do
if odd(i) then p:=p*i;
write(p);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ademausag
01.11.2021 21:19
Устройство для хранения программ и данных...
Dianakim05
01.11.2021 21:19
Ккакому виду информационных моделей относится модель, построенная в объяснительном тексте?...
vladiev
23.03.2021 13:39
это информатика 3. Какие графические редакторы применяются для трехмерных объектов?...
MYSABIEKOVA57
04.04.2021 03:59
С использованием какого значка можно быстро найти созданные тобой рисунки и документы?...
Скажи2018
31.07.2020 23:07
Если возраст претендента на вакантное место больше 35 лет или он родился в понедельник, то в приеме на работу ему будет отказано. В Excel...
oksanalap1
01.03.2020 23:32
Закодировать слова с шифра вижинера: используя ключевое слово зима , закодировать слова: алгоритмизация, компьютер, интернет...
ignatevakseniap087h6
01.03.2020 23:32
Взять три своих инициала и закодировать( к с б, где а=12, б=13, в=14 и т.д) полученные три числа перевести в двоичную систему счисления, вычислить их сумму и перевести в десятичную...
petrosuanyulian
29.12.2020 18:22
Відкрийте середовище Scratch 2.2. Складіть проект, у якому виконавець 4 рази зіграє деяку мело-діно, якщо буде натиснуто клавішу пропуск, або переміститьсяна 100 кроків уніна,...
Danil545333
08.09.2022 00:59
Причины калониального раздела мира...
motakina12
10.08.2020 23:53
, напишите сочинение по этой картине :(...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
for i:=1 to 40 do
if not odd(i) then write(i:3);
end.
2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do
if odd(i) then p:=p*i;
write(p);
end.