Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
igoreha3
15.05.2021 22:16 •
Информатика
Даны два числа x и у, большее из них возвести в квадрат
Показать ответ
Ответ:
Лиззка1904
09.07.2020 18:47
Var
a,b,max:Integer;
Read(a,b);
if (a>b) then max:=a*a
else if (b>a) then max:=b*b;
Writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
23вопрос4
11.07.2021 10:50
Напиши верный ответ: используя символы & , ¬, +, ∨ = а ∨ f...
jenjenle
11.07.2021 10:50
Вычислите значение переменной s после выполнения фрагмента программы на языке программирования turbo pascal: s : = 1; a : = 2; b : = 3; c : = 4; if (s b) or (b a) then...
Kulakoff
11.07.2021 10:50
Есть такое : даны натуральные числа m(0 =m =9) и n. дополнить запись числа n в начале и в конце цифрой m. я пробовал сделать по халтурному, просто добавив по краям числа...
livr5
29.05.2022 17:01
что является наименьшим элементом растрового изображения? 2. как определяется пространственное разрешение монитора? 3. назвать базовые цвета пикселя. 4. глубина цвета –...
василий0086
13.02.2022 16:59
Среди следующих высказываний выделить элементарные и составные. в составных высказываниях обозначить элементарные высказывания буквами и записать с логических символов...
Nope2281
13.02.2022 16:59
1. какие служебные слова используются для соединения двух или более условий? 2. сколько действий выполняется после оператора then?...
lisa301
08.09.2021 23:49
Составьте программу для целых чисел, введенных с клавиатурысуммирующую четные числа мне нужно побыстрее......
Victoria20066002
16.08.2022 19:31
напишите 8 предложений на английском языке про супер героя как он выглядит его происхождение его суперсила твои чувства (халк или человек паук)...
EkaterinaVNTOGLIATTI
18.10.2020 04:55
Автотровты қоректенудің гетеротровты қоректенуден айырмашылығы неде, түсіндіріңіз ...
Лuзуня
18.10.2020 04:55
1-нұсқа1.Фабрика 2400 етік тікті.Былғартер2-сі былғары теріден тігілген....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,max:Integer;
Read(a,b);
if (a>b) then max:=a*a
else if (b>a) then max:=b*b;
Writeln(max);
end.