viết chương trình xuất ra màn hình số nhỏ nhất trong ba số nguyên ngẫu nhiên được nhập từ bàn phím

2 câu trả lời

prorgram bt;

uses crt;

var a,b,c: integer;

begin

write(nhap a,b,c:')readln(a,b,c);

if (a<b) and (a<c) then writeln(a,' la so nho nhat')

else if (b<a) and (b<c) then writeln(b,' la so nho nhat')

else writeln(c,' la so nho nhat');

readln

end.

chúc bạn học tốt

Var a,b,c :Integer;
Begin
Readln(a,b,c);
If (a<b) and (b<c) then writeln(a) else
If (a>b) and (b>c) then writeln(c) else
writeln(b);
End.