Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Пельмешки11
11.10.2020 14:02 •
Информатика
Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). free pascal 2.4.4
Показать ответ
Ответ:
habman
03.10.2020 07:21
Function max(a,b : Integer) : Integer;
Begin
If a>=b then Max:=a else Max:=b;
end;
Var x,y : Integer;
Begin
Readln(x,y);
Writeln(Max(x,y));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
35794488
17.03.2020 08:53
Сколько цветов в палитре если цветное изображение имеет размер 20 на 30 точек, а информационный объем равен 150 байт?...
dnmsmd
04.04.2022 02:43
Введите 3 числа - a, b, c. определите, имеется ли среди чисел хотя бы одно чётное число. выведите на экран соответствующее сообщение: есть либо нет ....
kristinka75
25.06.2021 15:41
Какие разряды процессора...
берсик7
16.01.2023 10:23
Составьте алгоритм решения разветвляющейся структуры и в виде блок-схемы и в виде псевдокода. дан целочисленный квадратный массив 10 x 10. вычислите суммы максимальных...
yellowumbrella
06.01.2021 10:19
Каковы будут значения переменных x и y после окончание цикла...
BlackStyle69
06.01.2021 10:19
Постоянное запоминающее устройство вид внутренней памяти...
Tuchka087
01.07.2021 13:20
Калькулятор, работающий в пятеричной системе счисления имеет четыре знакоместа для вывода чисел на экран. С каким самым большим десятичным числом можно работать на...
Asuamasya
14.05.2020 04:04
Каждая ячейка памяти компьютера в которой хранится значение 0 или 1 называется... 1.бут 2.бит 3.байт 4.гигабайт...
nastunya29
27.05.2022 08:57
225. Решите уравнения. а) 14х=-42. b)2x-16=0. c)8x-17=23. d)5x=210+12x.e) 5x+21=3x+25f)17-3x+7x=31-2x+10g)2x-12=2(10-7x)h)5x-12-2(x-1)=(5-2x)+4x...
УмнаяВыхухоль
27.01.2021 18:58
Уникальная ясеневая роща. Тире между подлежащим и сказуемым Прочитай текст «Редкая реликвия ледникового периода». Тебе предложили написать сценарий для рекламного...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
If a>=b then Max:=a else Max:=b;
end;
Var x,y : Integer;
Begin
Readln(x,y);
Writeln(Max(x,y));
end.