Đăng nhập để hỏi chi tiết
0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var a, b, c, min: longint;
begin
clrscr;
write ('nhap a: '); readln (a);
write ('nhap b: '); readln (b);
write ('nhap c: '); readln (c);
if (a=b) and (b=c) then
begin
writeln ('ba so bang nhau');
readln;
exit;
end;
if a>b then min:=b;
if a<=b then min:=a;
if min>=c then min:=c;
writeln ('so nho nhat la: ',min);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin