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.