АД
Анатолий Дмитраница
Дано три целых числа. Найти произведение максимального числа на минимальное
Дано три целых числа. Найти произведение максимального числа на минимальное
Задача по информатике на языке Turbo Paskal
Дано три целых числа. Найти произведение максимального числа на минимальное
Задача по информатике на языке Turbo Paskal
program q171149624;
function Max(a, b: integer): integer;
begin
if a > b then
Result := a
else
Result := b;
end;
function Min(a, b: integer): integer;
begin
if a < b then
Result := a
else
Result := b;
end;
var
a, b, c: integer;
begin
ReadLn(a, b, c);
WriteLn(Max(Max(a, b), c) * Min(Min(a, b), c));
ReadLn;
end.