Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Pyc52141
05.09.2022 14:06 •
Информатика
Даны два числа a и b. меньшее из них замените полусуммой этих чисел, а большее - произведением этих чисел
Показать ответ
Ответ:
Nazarkadm
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 оценок)
Популярные вопросы: Информатика
terminator27
07.06.2021 15:28
Составьте блок-схему и запишите программу на языке паскаль...
Стары
26.03.2023 04:39
Среди предложенного перечня устройств определите количество устройств для ввода информации: хэлп !...
VanekI
30.04.2023 16:25
Нарисовать блок-схему и код (с++) для решения системы уравнений 11 вариант...
mariiiiii222
15.08.2022 22:46
Определите что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 1; s : = 0; while n = 101 do begin s : = s + 7; n : = n +...
shastononelove2
17.08.2022 17:35
Какой вклад внесла паутина в нашу жизнь...
shivaco
06.08.2020 01:20
Диски двд могут располагать максимальным числом дорожек записи?...
vikon2017
06.08.2021 01:54
прощения за ошибки. нужна . даны натуральные числа n и последовательность целых аn составьте программу которая в данной последовательности находит количество таких пар двух...
Zyherpopentruher007
01.10.2022 23:08
Определите что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 2; s : = 35; while n = 25 do begin s : = s + 20; n : = n...
siolvermen2005
27.06.2020 18:22
Определите что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin n : = 0; s : = 0; while s = 249 do begin s : = s + 24; n : = n...
rmandzinDhsha
26.07.2022 18:17
8программ в программе паскаль для цто 8 класса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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