Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
KatarinaDip
16.01.2020 22:18 •
Информатика
Даны два числа x и у, большее из них возвести в квадрат
Показать ответ
Ответ:
Kpuc2100
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 оценок)
Популярные вопросы: Информатика
tereschenkomaria
03.11.2020 06:47
Какая команда заполняет массив случайным образом...
Denis2008111
31.07.2021 11:40
2. 3D редактор - бул...а) үшөлшемді модельдеу, анимациялау және визуализациялауғаарналған программалық орта;b) қоршаған ортадағы үшөлшемді карапайым объектілермен модельдеудің...
medewwnik
06.08.2022 08:07
Задание 1. В языке за некой поисковой машины для обозначения логической операции ИЛИ используется символ «|», а для логической операции И — символ «&». Известны за...
Лиза200111111
17.03.2021 11:48
X,Y және Z осьтері программада не үшін түрлі түстермен белгіленген?...
dis8
28.08.2022 18:04
Решить задачу в виде блок-схемы. На камне подпись златая видна, как я у путника дальше судьба. Направо поедешь - быть тебе без коня, налево поедешь - потеряешь себя,...
Ama20Lama04
14.03.2023 23:25
Подумай и напиши!Какие правила соревнования по кегельрингузнаешь? Запиши их....
lyizadenikaeva
21.11.2022 07:37
Ищу модельки в 3д (солнечная система,катапульта,мяч, и прочее). + Анимации если есть. (Для примера) (Сайты есть, но то не то) Для Maya, 3d Max....
eleukenovadinara
19.10.2022 11:40
Сколько символов может включать в себя таблица кодирования Unicode?...
vvbedash
23.10.2021 10:52
Выберите устройство относящееся к внешней памяти * Флэш-память Оперативная память Видеопамять SSD...
kururumi
20.10.2021 20:42
Cколько байтов в компьютерной памяти займёт слово «table»? ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.