Viết chương trình nhập vào giá trị của 3 số nguyên dương . Đưa ra số lớn nhất trong 3 số vừa nhập
2 câu trả lời
Program baitap;
Uses crt;
Var a,b,c,max:integer;
Begin
Clrscr;
Write('Nhap 3 so nguyen duong:'); Readln(a,b,c);
If (a>0 and b>0 and c>0) then
Begin
max:=a;
If b>max then max:=b;
If c>max then max:=c;
Writeln('So lon nhat:',max);
Else Writeln('Hay nhap so lon hon 0');
Readln
End.
