Даны ДВА числа, а найти минимум из ТРЕХ... не совсем понял программа находит минимальное из трех чисел введенных с клавиатуры
function M(a,b : integer): integer; begin if a<b then M := a else M := b; end; var a, b, c : integer; begin write('A: '); readln(a); write('B: '); readln(b); write('C: '); readln(c); write('Minimum: ', m(m(a,b),c)); end.
программа находит минимальное из трех чисел введенных с клавиатуры
function M(a,b : integer): integer;
begin
if a<b then
M := a
else
M := b;
end;
var a, b, c : integer;
begin
write('A: '); readln(a);
write('B: '); readln(b);
write('C: '); readln(c);
write('Minimum: ', m(m(a,b),c));
end.