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.