Viết chương trình nhập từ bàn phím 2 số nguyên a b
Viết chương trình nhập 2 số a, b từ bàn phím, tính trung bình Cộng của 2 số a và b và in kết quả ra màn hình
Viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất.
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui long nhap hai so khac nhau') else if a>b then writeln('so lon nhat la: ',a) else writeln('so lon nhat la: ',b); readln; end.
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui long nhap hai so khac nhau') else if a>b then writeln('so lon nhat la: ',a) else writeln('so lon nhat la: ',b); readln; end.
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui long nhap hai so khac nhau') else if a>b then writeln('so lon nhat la: ',a) else writeln('so lon nhat la: ',b); readln; end.
Viết chương trình giải ptrinh tìm số lớn nhất trong 3 số nguyên a, b, c ( a,b,c nhập từ bàn phím )
uses crt; var a,b:integer; begin clrscr; write('a='); readln(a); write('b='); readln(b); if a=b then writeln('vui ***g nhap hai so khac nhau') else if a>b then writeln('so *** nhat la: ',a) else writeln('so *** nhat la: ',b); readln; end. |