Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
DarkneSS341
01.10.2022 00:39 •
Информатика
Написать программу в паскаль abc составить алгоритм нахождения меньшего из 2-х значений определить,является ли данное число чётным или нечётным
Показать ответ
Ответ:
Дзера1111
02.10.2020 09:26
Program m;
var a,b,c:integer;
begin
readln(a,b);
if a<b
then c:=a
else c:=b;
if c mod 2 =0
then writeln ('наименьшее число = ',c , '; данное число чётное')
else writeln ('наименьшее число = ',c , '; данное число нечётное');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Бигль02
15.06.2022 23:57
Решите пример в питоне 659+985...
Саша99990
29.09.2021 11:09
6. Определи закон алгебры логики: (X & D) & K=X & (D & K) А) Ассоциативный закон Б) Закон де Моргана В) Распределительный закон Г) Закон повторения...
shesasha66
31.07.2021 11:13
Вариант №1: Задача №1: Описать функцию sum_otr(A, B) целого типа, находящую сумму всех нечетных целых чисел от A до B включительно (A и B — параметры целого типа)....
анлггрн765
02.04.2021 07:01
Яка гарантована пропускна здатність допускається при одночасній роботі станцій. Мережа локальна. У домені колізій 10 станцій (з’єднання через HUB)100BASE-TX....
ForaN777
15.06.2021 12:50
Сколько мбайт информации содержит сообщение объемом 22222222 бит?...
matveydayp0cd3p
15.06.2021 12:50
1)какие файлы обычно хранятся на серверах файловых архивов? 2)из каких частей состоит адрес файла на сервере файлового архива?...
Deencast
15.06.2021 12:50
Оформите в виде процедур алгоритмы рисования букв м, и, р. составьте алгоритмы рисования слов мир, рим, мим....
Alexandra1031
15.06.2021 12:50
Скорость передачи данных по некоторому каналу связи равна 642000 бит/с. определить время передачи файла размером 640 кбайт....
ulozerova
28.01.2023 17:03
Подчеркни главные члены всех предложений. В тот вечер мы играли в рыцарей. У нас были деревянные мечи. Щиты мы сделали из фанеры. На щите воин рисовал какой-нибудь...
2005nastyabereza
28.10.2021 23:40
Продолжите последовательность a+b+2 a+c+3 b+a+8b+c+9c+a+8c+b+9a+b+8a+c+9...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c:integer;
begin
readln(a,b);
if a<b
then c:=a
else c:=b;
if c mod 2 =0
then writeln ('наименьшее число = ',c , '; данное число чётное')
else writeln ('наименьшее число = ',c , '; данное число нечётное');
end.