Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Sevinch123
29.03.2021 01:20 •
Информатика
Найдите квадрат наибольшего из чисел a и b. выведите результат сравнения на экран. программу напишите на языке программирования паскаль
Показать ответ
Ответ:
muratov20011
04.10.2020 11:49
Var a,b:integer;
begin
writeln('Введите два числа:');
readln(a,b);
if (a>b)
then writeln(a,' > ',b,', ',a,'^2=',a*a)
else writeln(b,' > ',a,', ',b,'^2=',b*b);
end.
Пример:
Введите два числа:
5 8
8 > 5, 8^2=64
0,0
(0 оценок)
Популярные вопросы: Информатика
Medvedevalilit2004
07.09.2022 00:04
Отметьте области прриминения мультимидийных технологий...
vikarudenko1998
18.02.2021 04:07
Укажите технологии , относящиеся к персональным беспроводным сетям A) EDGEB) BluetoothC) DECTD) LTEE) FDDIF) IrDA...
05gazieva05
03.01.2020 23:39
Компьютер с 64-разрядным адресом использует двухуровневую таблицу страниц. Виртуальные адреса расщепляются на 7-разрядное поле верхнего уровня таблицы, 13-разрядное...
олеся786
09.11.2022 00:30
)дана последовательность действительных чисел поменять местами наибольший и наименьший элементы...
zagena09
25.02.2023 13:13
Программа word, многоуровневый списоквыполните в ворде пришлите скрин...
avasjanom
23.07.2021 11:46
Какое сочетание клавиш сделает в текстовом процессоре неотформатированный текст курсивным? выберите все подходящие варианты ctrl+c ctrl+v shift+i ctrl+i shift+b ctrl+b...
kristinasotsen
16.05.2022 23:57
Какие из формул записаны верно? выберите все варианты. : = a5 + b6 = 10c * 2e = a1 - g100/s1 a50 / b6 + c3 = = = a10/g3 = a1 + a1a2 = c3 * f6...
parus27
22.05.2023 12:12
Найти сумму элементов массива b (30) принадлежащих диапазону (0,50). выводим элементы массива в столбик с пояснениями...
Гавноед24
08.01.2021 01:17
Язык языку весть подает. (Исследование о происхождении заимствованных слов. Сообщение о русских словах в иностранных языках.)...
JackDead
27.05.2020 12:49
Перепишите предложение, правильно расставив знаки препинания. Не забывайте, что предложение должно начинаться с заглавной буквы, а в конце предложения должна стоять...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите два числа:');
readln(a,b);
if (a>b)
then writeln(a,' > ',b,', ',a,'^2=',a*a)
else writeln(b,' > ',a,', ',b,'^2=',b*b);
end.
Пример:
Введите два числа:
5 8
8 > 5, 8^2=64