Составьте не менее трех вариантов программы определения наименьшего из трех данных чисел
Составьте не менее трех вариантов программы определения наименьшего из трех данных чисел.
Program MIN_1;
var A, B, C, D: real;
begin
readln(A,B,C);
if A<=B then D:=A else D:=B
if C<=D then D:=C
writeln ('Наименьшее число: ', D)
end.
Program MIN_2;
var A, B, C, D: real;
begin
readln(A, B, C);
if A<=B
then if A<=C then D:=A else D:=C
else if B<=C then D:=B else D:=C;
writeln ('Наименьшее число: ', D)
end.
Program MIN_3;
var A, B, C, D: real;
begin
readln(A, B, C);
if (A<=B) and (A<=C)
then D:=A
else if (B<=A) and (B<=C)
then D:=B
else D:=C;
writeln ('Наименьшее число: ', D)
end.