tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны два числа x и у, большее
Даны два числа x и у, большее из них возвести в квадрат
gelya12121
1 11.06.2019 23:20
2
Ответы
Борель
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
dstepin17
26.11.2019 19:18
Решать с кругами 2 по информатике...
semenem15
20.10.2020 02:40
5. Определите операционную систему по рисунку ...
Музалевская
20.10.2020 02:37
Найти объём слово двоичной информации в байтах и битах...
kkksun
20.10.2020 02:37
Ребят выполнить задания от этого зависит оценка моя. Задания будут в файле...
1981katerina
20.10.2020 03:02
Мәтіннің екінші азат жолына дәл келетін тақырыпты тап. арабтар басып алған соң, кеме тоқтайтын жерді батпақ басты. Посейдонның қола мүсіні 7 метр. Александрия шамшырағы...
letochka111
20.10.2020 02:40
Определите количество информации в одном символе русского алфавита (Только строчные, используем букву «ё») Найдём мощность алфавита: N= ... Вычислим количество битов:...
krisdenya2005
16.02.2022 04:42
Закодировать десятичные числа нулями и единицами (перевести десятичное число в двоичное): А) 53 Б) 64 2) Раскодировать двоичный код в десятичное число (перевести...
vovaste
16.02.2022 04:46
F=(X&¬Y)vZ таблица истинности ОЧЕНЬ...
аня2940
16.02.2022 04:48
Запиши программный код с оператором множественного выбора...
kolzov
16.02.2022 04:49
4. Сколько итераций выполнит цикл? i=1 while i...
Популярные вопросы
Ови... Тверть 5 кл Тест за V четверть по всемирной истории 5 класс1....
1
Тірек сөз деген не? Ол қандай сүрақтарға жауап береді...
2
Объясните исторические термины и даты № Термины и даты Объяснение...
3
необходимо определить количество четных чисел в диапозоне от 1...
2
Мне уже было не до романтики - надо гасить кредиты.На сайте Романтический...
3
7. We decided on chicken as the course * mainblandnot important...
3
В параллелограмме ABCD стороны АВ = 10 см и AD=7 см. ВН и ВК -...
3
А(-2; 1), B(46). Точка к(x,y) делит отрезок лва отношении АК:KB=3:2...
3
15228 : a + (1001 – d) · 12 ,npu у меня соч...
1
1316. Выполните действия: 51)-2,4 - 1,75 -122) -4,2 – 3,25 -123)...
3
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.