Question

viết chương trình tìm số bé nhất trong 4 số a,b,c,d.( Với a,b,c,d được nhập từ bàn phím).

Answer 1

program ho_tro;

uses crt;

var a,b,c,d,min: real;

begin

clrscr;

writeln(' nhap bon so:'); readln(a,b,c,d);

min:=a;

min:=b;

min:=c;

min:=d;

if min> a then min:=a;

if min>b then min:=b;

if min>c then min:=c;

if min>d then min:=d;

writeln(' so be nhat la :',min:6:2);

readln;

end.

Answer 2

uses crt;

var a,b,c,d,min:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

min:=a;

if min>b then min:=b;

if min>c then min:=c;

if min>d then min:=d;

writeln('so nho nhat la: ',min);

readln;

end.