Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
KendallK
26.02.2021 03:39 •
Информатика
Даны 2 числа. большее из этих чисел поделить на 2. меньшее возвести в квадрат. вывести сумму этих чисел
Показать ответ
Ответ:
svyatoslavkorchagin
21.07.2020 22:56
Var a,b,c:real;
begin
writeln('введите два числа');
readln(a,b);
if a>b then begin
a:=a/2;
b:=sqr(b);
c:=a+b;
writeln(c)
end
else
begin
b:=b/2;
a:=sqr(a);
c:=a+b;
writeln(c);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kapcha228
21.04.2020 23:31
ДАЙТЕ ОТВЕТ, ВО ЗАПИШИ ПО ОДНОЙ КОМАНДЕ В ТАБЛИЦУ...
Valya256
08.03.2020 02:40
1. Если у нескольких чисел нет общих делителей кроме единицы, то эти числа называются за быстрый ответ...
aium08
24.08.2020 23:55
все задания на фотографиях (Массивы)...
мозгилучше
10.06.2020 01:17
Сколко кодовых таблиц существует для кодировки букв?...
annet5530
10.06.2020 01:17
Сколько информации можно записать в тетрадь на 12 листов? 1 строка = 31 байт, 1 лист = 40 строк...
Kris905
12.02.2021 12:40
1.какие значения будет принимать величина- счетчик при выполнении следующего цикла: от m=r до n шаг 2. 2.в соревнованиях по прыжкам в высоту участвовало 100 спортсменов....
martyanovvanya1
12.02.2021 12:40
1.запишите, какие переменные к каким из типов integer, real, char, boolean могут быть отнесены. а: = 2 ; b: =2; c: =true; d: =123458; e: =25.45678; f: = 25 ; g: =...
runazh
18.01.2020 13:36
Программу вычисления квадратов 5 натуральных чисел , начиная с 3.вывести на экран эти числа и их произведения...
СашаБагнюк22
26.04.2020 17:29
Сведение об окружающем нас мире ответ на кроссворд...
Lidiiiiiiiiiia
21.01.2020 05:19
Определить наименьшие основания позиционных систем счисления, при которых истинно заданное равенство. 144х=207у...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('введите два числа');
readln(a,b);
if a>b then begin
a:=a/2;
b:=sqr(b);
c:=a+b;
writeln(c)
end
else
begin
b:=b/2;
a:=sqr(a);
c:=a+b;
writeln(c);
end;
end.