Viết chương trình nhập x,y,z ra bàn phím.In ra màn hình số bé nhất Tin 8 giúp vs ạ....

1 câu trả lời

$#QLinkVNxWCDI$

program qlinkvn;

uses crt;

var x,y,z,min:integer;

begin

clrscr;

write('Nhap gia tri cua x: '); readln(x);

write('Nhap gia tri cua y: '); readln(y);

write('Nhap gia tri cua z: '); readln(z);

min:=x;

if min>y then min:=y;

if min>z then min:=z;

writeln('So be nhat trong 3 so la: ',min);

readln;

end.