Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
анар53
14.01.2021 23:44 •
Информатика
Решить две ) 1)дано число а, узнать чётно оно или нет; 2)даны 2 пакета с рисом 1-ый пакет m кг, а 2-ой пакет n кг, узнать наибольший пакет (решать разветвлённым алгоритмом)
Показать ответ
Ответ:
Maksim777900
05.10.2020 16:24
1)
var a:integer;
begin
write('a = ');
readln(a);
if a mod 2 = 0
then writeln(a,' - четное')
else writeln(a,' - нечетное');
end.
Пример:
a = 15
15 - нечетное
2)
var m,n:integer;
begin
write('m = ');
readln(m);
write('n = ');
readln(n);
if m>n
then writeln('1-ый пакет тяжелее')
else writeln('2-ой пакет тяжелее');
end.
Пример:
m = 12
n = 10
1-ый пакет тяжелее
0,0
(0 оценок)
Популярные вопросы: Информатика
Скрытый21
23.01.2023 22:01
Определите и отметьте тип каждого устройства по братски...
LLLLLina
06.01.2023 05:47
Задание 2 Выберите верную последовательность действий при сложном форматировании абзаца в текстовом редакторе. а) задать вид форматирования, задать параметры форматирования,...
Liusia200
13.11.2022 08:03
Заполните таблицу: Носители информации Название носителя информации Описание Применение Преимущества 7 класс Информатика...
nastya788rf
12.09.2020 12:49
Які нюанси потрібно врахувати при створені сайту, щоб він підходив для всіх поколінь? Какие нюансы нужно учесть при создании сайта, чтобы он подходил для всех поколений?...
SophiaSaliuk
21.03.2020 08:03
(O. Шецова) Между населёнными пунктами А, В, С, D, E, F построены дороги, протяжённость которых приведена в таблице. Отсутствие числа в таблице означает, что прямой...
алгебра171
17.04.2023 20:34
Які нюанси потрібно врахувати при створені сайту, щоб він підходив для всіх поколінь?...
konfetka7510
12.07.2022 17:22
решить. и желательно поясните 2. Определить объем накоплений в банке суммы денег за 5 лет, если первоначальный взнос Влада составлял $100 000 и вклад был сделан на...
FfffdZb
13.03.2022 01:02
Оформление ячейки что нужно сделать чтобы выделенная ячейка выглядела как в примере?...
Mmilanio
27.09.2022 20:10
видеокарта и процессор вообще не грузиться Суть проблемы собрал компьютер и пошел играть лагает а почему комплектующие нормальные СборкаR7 2700xRX6600xtAsrock pro4...
77Stranik77
20.10.2022 14:55
Что будет если нажать shift + 1(2. 3. 4. 5. 6. 7. 8. 9. 0.) в режиме ввода букв....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
write('a = ');
readln(a);
if a mod 2 = 0
then writeln(a,' - четное')
else writeln(a,' - нечетное');
end.
Пример:
a = 15
15 - нечетное
2)
var m,n:integer;
begin
write('m = ');
readln(m);
write('n = ');
readln(n);
if m>n
then writeln('1-ый пакет тяжелее')
else writeln('2-ой пакет тяжелее');
end.
Пример:
m = 12
n = 10
1-ый пакет тяжелее