Предмет: Информатика,
автор: reshi5
Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее – полусуммой этих чисел
Ответы
Автор ответа:
0
var a,b:integer;
begin
read(a,b);
if a>b then begin
a:=2*a*b;
b:=(a+b)/2 else
b:=2*a*b;
a:=(a+b)/2;
end;
write (a,b);
end.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Қазақ тiлi,
автор: LesovoiKirill126
Предмет: Алгебра,
автор: arkavy16
Предмет: Физика,
автор: AngelLinka
Предмет: История,
автор: Littlewhitefox