Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ferid9098
12.03.2020 19:04 •
Информатика
Найти квадрат наибольшего из двух чисел а и б. вывести на экран число 1, если наибольшим является число а , число 2- если наибольшим числом является б
Показать ответ
Ответ:
zephy
28.07.2020 01:47
Var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>b) then writeln (sqr(a),' ' ,1) else
writeln (sqr(b),' ', 2);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Дарья16072005
05.11.2021 16:54
Нысан- Топтау командасы нені білдіреді? *...
сергей1105
26.01.2020 15:06
Напишите программу на с#. определить, достаточно ли бензина для поездки, если известны: длина пути, количество бензина в баке и расход бензина на 1 км....
0KULLEP0
20.05.2022 21:57
2. Фрагментом текста не может быть 1) абзац 2) группа слов 3) одиночный символ4) несколько символов, расположенных в разных частях абзаца...
alinavolk93ozs1oc
02.02.2020 02:51
Рассчитать объем видеопамяти, необходимый для хранения графического изображения, занимающего весь экран монитора с разрешением 640 на 480 точек и палитрой, состоящей...
Мир666ад
14.12.2020 23:22
Вопрос 3 дан оператор цикла на языке паскаль: a: =0; for i: =1 to 10 do begin a: =a+12; writeln(i); end; чему будет равно последнее значение i, выведенное на экран?...
Prostoy23
30.10.2020 13:12
Какое значение принимает переменная х после выполнения операций присваивания: х : = 3 + 2; х : = 4; х : = 2 + х* 2;...
мирок3
12.04.2023 06:01
Дано двузначное число. определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр....
Черпачок
14.12.2022 01:12
2. известно количество страниц, которые находит поисковый сервер по следующим запросам: собаки 200 кошки 250 лемуры 450 кошки | собаки 450 кошки & лемуры 40 собаки...
tanea201111
06.08.2021 07:40
Дана строка. найти номер позиции, с которой начинается . в паскале...
renatamur200518
01.01.2020 05:20
Внекотором каталоге хранился файл том 1, имевший полное имя d: век\том 1. в этом каталоге создали подкаталог шолохов и переместили в созданный подкаталог файл том 1....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>b) then writeln (sqr(a),' ' ,1) else
writeln (sqr(b),' ', 2);
readln;
end.