Даны два числа-а,б.найдите меньшее число и замените - вопрос №7091231 от Lososepotam 10.06.2020 16:53

Question

Информатика: Даны два числа-а,б.найдите меньшее число и замените его модулем разности чисел а,б

Lososepotam · Answer

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a,b:real;
Read(a,b);
var c:=abs(a-b);
if a<b then a:=c else b:=c;
Print(a,b)
end.

Пример
12.5 13.71.2 13.7