Question

Viết chương trình nhập vào 2 số a,b (khác nhau). Hãy tìm và hiển thị số nhỏ nhất trong 2 số đó

Answer 1

var a,b: real;

begin

write('Nhap a,b: '); readln(a,b);

if a < b then writeln(a:5:2) else if a > b then writeln(b:5:2) else writeln('Khong co');

end.

Answer 2

uses crt;

var a,b:real;

begin

clrscr;

repeat

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

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

until a<>b;

if a<b then writeln('So nho nhat la: ',a:4:2)

else writeln('So nho nhat la: ',b:4:2);

readln;

end.