Question

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

Answer 1

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.