Предмет: Информатика,
автор: 007maikl
Даны числа А,В, и С .
Меньшее из них заменить полусуммой двух других
Ответы
Автор ответа:
0
var
a, b, c: real;
begin
readln(a, b, c);
if (min(a, min(b, c)) = a) then
a := (b + c) / 2
else
if (min(a, min(b, c)) = b) then
b := (a + c) / 2
else
if (min(a, min(b, c)) = c) then
c := (b + a) / 2;
writeln(a, ' ', b, ' ', c);
end.
a, b, c: real;
begin
readln(a, b, c);
if (min(a, min(b, c)) = a) then
a := (b + c) / 2
else
if (min(a, min(b, c)) = b) then
b := (a + c) / 2
else
if (min(a, min(b, c)) = c) then
c := (b + a) / 2;
writeln(a, ' ', b, ' ', c);
end.
Похожие вопросы
Предмет: Русский язык,
автор: mashazai
Предмет: Биология,
автор: nikiminecraft3909
Предмет: Математика,
автор: akzholidris
Предмет: Математика,
автор: Игорь888373
Предмет: Химия,
автор: pogorelovolexiy