Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
таня2033
20.09.2020 14:07 •
Информатика
Ввести два числа а и б. большее число заменить утроенным произведением , меньше полусуммой
Показать ответ
Ответ:
Milana000000111
28.07.2020 01:47
Var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>b) then begin
b:=(a+b)/2;
a:=3*(a*b);
end
else
begin
a:=(a+b)/2;
b:=3*(a*b);
end;
writeln('a=',a, ' b=', b);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
denvolk00
22.12.2020 23:40
Рост человека 5 футов 2 дюйма .Выразите его рост в см ,если 1 фут равен 12 дюймов ,а 1 дюйм равен 2,54 см .Результат округлите до целого числа см. Очень ...
Ujwy
02.10.2020 21:36
Как загрузить файлы в редактор videopad, скажите...
londi17
18.12.2020 18:02
Закодируй полученную тобой на основе анализа рисунка информацию знаками на бумажном носителе...
ЖибекСуонн3
27.09.2020 11:39
информация, хранящаяся в долговременной памяти как единое целое и обозначенная именем это..информация, хранящаяся в долговременной памяти как единое целое и обозначенная именем это.....
Darksholnic
02.09.2020 12:22
Что нельзя считать алгоритмом? пословицы список класса кулинарный рецепт инструкция сканера...
Annamatveevvva8
18.06.2021 07:01
Напишите хотя бы 2 предложения, включая понятия: полимер, мономер, этилен, полиэтилен, пластик, полимеризация! Опишите процесс, представленный атомными моделями!...
СаММЫч
18.06.2021 07:01
До ть будь ласка 1. У сполучених посудинах міститься ртуть і вода. Висота стовпа води 68 см. Якої висоти стовп гасу слід налити в ліве коліно щоб тут встановилася на однаковому рівні?...
melongemma
18.06.2021 07:01
Закончити приказку: Закарбувати на ......
andreybrake
18.10.2022 09:10
1)Разложи на множители 11t2−11 . 2)Разложи на множители многочлен 7⋅a2−7⋅m2 . 3)Представь в виде произведения a3−a5 . 4)Разложи на множители: 0,01t−tu2 . 5)Разложи на множители: 4z2−8zy+4y2...
irina699
22.06.2021 00:19
Решить уровнение (600−m)⋅532=23408...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>b) then begin
b:=(a+b)/2;
a:=3*(a*b);
end
else
begin
a:=(a+b)/2;
b:=3*(a*b);
end;
writeln('a=',a, ' b=', b);
readln;
end.