Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
мосщчщчпзчх
15.05.2023 01:13 •
Информатика
Даны действительные числа n и m. меньшее из этих двух чисел заменить их полусуммой, а большее удвоенным произведением.
Показать ответ
Ответ:
mishutka144qwerty
06.10.2020 18:36
Uses crt;
var g: Integer;
n,m: Real;
Begin
Write('Введите два числа: ');
Readln(m,n);
If m>n then begin
g:=n;
n:=(m+n)/2;
m:=2*m*n;
end
else begin
g:=m;
m:=(m+n)/2;
n:=2*m*n;
end;
Writeln('m = ', m, ' n = ', n);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
1234567891243
23.05.2021 06:00
Черно-белое изображение 10х10 пикселей занимает инф. объем в 300 бит сколько градаций яркости может иметь один пиксель? ...
mankoyana
23.07.2020 12:46
1.составить таблицу истинности данного логического выражения: b or not ( a and c ) or a. 2.составить программу,выводящую значение true,если указанное в условии выражение...
Dinez8
22.03.2021 11:01
Могут ли забанить в режиме инкогнито...
lolka143
30.01.2020 03:29
Паскаль 7 ! ! в семизначном числе найти и вывести все цифры меньше 5...
BPAN321
25.12.2022 08:15
Нужно решить 6, 9, 7, 1, 10, 11. знаю, что много, но...
iobolenkov
03.04.2022 19:41
Дан фрагмент кода программы на разных языках программирования. Определите значение переменной x, если известно, что после завершения программы выведенное значение...
skydux
07.03.2022 15:12
ОТВЕТЬТЕ БЫСТРЕЕ print ( 5*4**3 )...
Reginmdms
18.02.2020 12:08
Що називають предметною галуззю? що розуміють під поняттям модель? чому визначається вибір суттєвих властивостей,на основі яких буде створюватися модель? ...
kirana05
18.08.2020 01:40
Примеры, которые отражают процесс информатизации...
вбцуьа
08.08.2021 14:37
В магазине предоставляется скидка 5% в случае, если сумма чека больше 1000 тенге. b) Напиши формулу для ячейки D6. .....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var g: Integer;
n,m: Real;
Begin
Write('Введите два числа: ');
Readln(m,n);
If m>n then begin
g:=n;
n:=(m+n)/2;
m:=2*m*n;
end
else begin
g:=m;
m:=(m+n)/2;
n:=2*m*n;
end;
Writeln('m = ', m, ' n = ', n);
End.