составьте не менее...

составьте не менее трех вариантов програмы определния наименьшего из трех данныхчисел

 

1)
program m;
uses crt;
var i,a,b,c,min:integer;
begin
clrscr;
readln(a,b,c);
if a<min then min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('        ',min);
readkey;
end.
 
2)
program m;
uses crt;
var i,a,b,c,min,d:integer;
begin
clrscr;
readln(a);
min:=a;
for i:=1 to 2 do            
                                    begin
readln(a);
if a<min then min:=a;
                                    end;
writeln(min);
readkey;
end.
 
3)
program m;
uses crt;
var i,a,b,c,min,d:integer;
begin
clrscr;
readln(a,b,c);
if a<b then b:=a;
if c<a then b:=c;
writeln(b);
readkey;
end.