function min_3(const a, b, c: integer): integer; var local_min: integer; begin if (a < b) then local_min := a else local_min := b; if (c < local_min) then local_min := c; Result := local_min end;
function max_3(const a, b, c: integer): integer; var local_max: integer; begin if (a >= b) then local_max := a else local_max := b;
if (c > local_max) then local_max := c;
Result := local_max; end;
begin writeln('Введите a, b, c -> '); readln(a, b, c); writeln('Результат: ', min_3(a, b, c) + max_3(a, b, c), '.'); end.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),0,9); a.Println; a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]) .Foreach(t->Writeln(t[0],' - ',t[1])) end.
a, b, c: integer;
function min_3(const a, b, c: integer): integer;
var
local_min: integer;
begin
if (a < b) then
local_min := a
else
local_min := b;
if (c < local_min) then
local_min := c;
Result := local_min
end;
function max_3(const a, b, c: integer): integer;
var
local_max: integer;
begin
if (a >= b) then
local_max := a
else
local_max := b;
if (c > local_max) then
local_max := c;
Result := local_max;
end;
begin
writeln('Введите a, b, c -> ');
readln(a, b, c);
writeln('Результат: ', min_3(a, b, c) + max_3(a, b, c), '.');
end.