vt ct nhập 4 số và tìm xem đâu là số nhỏ nhất trong 4 số bằng ngôn ngữ lập trình pascal
2 câu trả lời
program gtnn;
uses crt;
var a,b,c,d,min: real;
begin
clrscr;
write('nhap so thu nhat:'); readln(a);
write('nhap so thu hai:'); readln(b);
write('nhap so thu ba:'); readln(c);
write('nhap so thu tu:'); readln(d);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
if d>min then min:=d;
writeln('so nho nhat la:',min);
readln
end.
uses crt;
var a,b,c,d:integer;
begin
write('nhap a: ');readln(a);
min:=a;
write('nhap b: ');readln(b);
write('nhap c: ');readln(c);
write('nhap d: ');readln(d);
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.
