Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
doncov2001
28.03.2022 14:07 •
Информатика
Решить две ) 1)дано число а, узнать чётно оно или нет; 2)даны 2 пакета с рисом 1-ый пакет m кг, а 2-ой пакет n кг, узнать наибольший пакет (решать разветвлённым алгоритмом)
Показать ответ
Ответ:
ромашка261
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 оценок)
Популярные вопросы: Информатика
alievosman
26.11.2021 06:27
1. саша скачивает из сети файл размером 60 мбайт. скорость передачи первой половины данных составляет 256 кбит в секунду, а второй — в два раза меньше. сколько минут будет...
Olechka77
25.05.2022 13:07
На каждом этаже в вашей школе должен быть план эвакуации при найдите и изучите его . какие обьекты представлены на этой схеме?...
prostonick111237
01.01.2022 14:30
Как называется узел дерева, у которого нет потомков?...
smirnovakrestin
01.01.2022 14:30
Впаскале выдает ошибка: ожидался идентификатор надо вывести на экран четные числа из промежутка 1: 30 000 ( возможно, решение неправильное) program do 30000; uses crt; var...
yuakomlev
17.04.2020 06:49
Чему будет равна переменная «c» после выполнения этой программы: a : = 28; b : = 7; b : = a div b + b; c : = a mod b + a;...
delsinroujob
25.09.2020 10:26
Найти количество всех элементов целочисленного массива, которые являются положительными двузначными числами. паскаль....
zhakenovagulnaz
24.12.2020 08:47
Семья ночью подошла к мосту. папа может перейти его за 1 минуту, мама — за 2, малыш — за 5, а бабушка — за 10 минут. у них есть один фонарик. мост выдерживает только двоих....
Дарьятрофимова1
24.02.2020 14:42
Нужна нужно написать программу.используя встроенную функцию,определите модуль числа ....
Умняшаааа145
08.10.2021 09:29
(pascal) дан двухмерный массив целых чисел. найти столбец с максимальной суммой элементов...
вадим839
08.10.2020 11:21
Сколько бит памяти займет слово информатика ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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-ый пакет тяжелее