Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
bandit12341
03.11.2022 13:10 •
Информатика
Даны два числа a и b. меньшее из них замените полусуммой этих чисел, а большее - произведением этих чисел
Показать ответ
Ответ:
veronikavolkova357
21.08.2020 11:59
var a,b,s,p:real;
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if a<b then begin a:=s; b:=p end
else begin b:=s; a:=p; end;
writeln('a = ',a:4:2,' b = ',b:4:2);
end.
Пример:
15 27
a = 21.00 b = 405.00
0,0
(0 оценок)
Популярные вопросы: Информатика
lissasalvatore
18.01.2021 02:13
в Excel таблицу значений функции двух переменных F(x,y), в прямоугольной области [a,b]×[c,d] согласно исходным данным hx – шаг изменения x, принимающего значения от a до b. hy –...
koi4
11.01.2022 03:46
Определите какая система счисления кроме перечисленных в этой теме вы ещё знаете....
Nactyxa2003
14.03.2021 23:40
Приведите примеры использования в современной жизни древних систем счета: унарная римская....
VTKOF
10.01.2022 20:47
Завдання 1 Розробити програму, яка виводить на екран монітора одним оператором Ваше прізвище, ім’я, по батькові, місце навчання та місце проживання, розбиваючи цю інформацію на...
ValeryaKN15
05.08.2021 13:28
Дано трехзначное натуральное число. найти разность между заданным числом и суммой его цифр. написать рограмму в паскале до завтра нужно...
Nightmare5467
01.08.2020 10:32
Відомо що . чому дорівнює частка чисел 0.25a і 1.25b...
Архес228
01.08.2020 10:32
Пионеры ехали на автомашине из лагеря в город. когда они проехали 3/4, автомашина была остановлена для ремонта. оставшуюся часть пути пионеры проделали пешком,затратив на это времени...
АнькаЦитрус
01.08.2020 10:32
Пусть х1 и х2 корни равнения 2х^2-5x-4=0 не вычисляя корней, нйдите значения: 1/х1^2+1/х2^2 x1x2^4+x2x1^4...
tropika33
01.08.2020 10:32
Вклассе 25 учеников.у родительский комитет перед началом учебного года купили для каждого ученика по h тетрадей в клетку и по q тетрадей в линию по цене p рублей каждая. составьте...
serovik24
01.08.2020 10:32
Вгороде два магазина бытовой техники. в первом висит объявление о снижении цен на 60%, во втором – о снижении в 2,5 раза. спрашивается, в какой магазин пойти покупателю, если до...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if a<b then begin a:=s; b:=p end
else begin b:=s; a:=p; end;
writeln('a = ',a:4:2,' b = ',b:4:2);
end.
Пример:
15 27
a = 21.00 b = 405.00