Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
orenet
22.10.2020 12:32 •
Информатика
Найти max (a,b) через pascal решить!
Показать ответ
Ответ:
Вероника13411
10.08.2020 08:20
Var
a,b:integer;
Begin
Write('Введите два целых числа: ');ReadLn(a,b);
if a > b then WriteLn('Max = ',a)
else WriteLn('Max = ',b)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
аза101
12.09.2020 02:05
Вычеслительный автомат дата: где и кем создана . счетно перфорациональная машина дата: где и кем создана:...
Nickhoffmanru
19.02.2021 08:41
С алгоритма робота чертёжник составить слова ШКОЛА, ТРУД, МАЙ и число 002200 (Размеры и начало координат, а также черчения не ограничены...
Rr0
06.02.2022 22:00
Засоби розробки веб-сайтів...
dibtdi
10.06.2020 01:30
Какие команды должны быть у робота, выполняющего функции: a) ученика; b) охранника; c) продавца...
thefizrap0c5s5
21.04.2023 06:04
1. Разработать HTML-страницы для выполнения вычислений. 2. Для каждого вычислительного блока - своя форма (кнопка Вычислить , INPUT-TEXT для ввода данных и поясняющие...
ххх87
10.07.2021 21:08
Почему введение функции начинается со знака равенства(=)? ...
Serpopi
04.02.2021 05:48
Имеется массив B(10) из целых чисел. Найти количество положительных элементов массива, больших 7 и кратных 4....
kocmoc505
19.11.2021 07:01
Что изображены на картине?Что они делают?Паже ...
homka16072006
09.12.2020 10:12
Написать сочинение на тему: Why is the way we look important?...
Alina0989
14.06.2021 21:10
ответь (не производя построения), в каком координатном угле расположена точка L(−3;−11)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b:integer;
Begin
Write('Введите два целых числа: ');ReadLn(a,b);
if a > b then WriteLn('Max = ',a)
else WriteLn('Max = ',b)
End.