1.Viết chương tình nhập từ bàn phím 2 số tự nhiên a,b.Hiển thị kết quả ra màn hình tổng ,hiệu,tích,thương của hai số a và b?
2.Viết chương trình nhập vào một số tự nhiên rồi in ra kết quả trả lời số vừa hập là số chẵn hay số lẻ
3.Viết chương trình nhập hai số nguyên a và b từ bàn phím và in số đó ra màn hình theo thứ tự tăng dần
4.Viết CT nhập vào một số nguyên rồi in ra kết quả trả lời.Số vừa nhập có chia hết cho 3 không
Giups voiiiiiiiiiiiiiiiiiiiiiiiiiis!
3) var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if (a<b) then write(' Thu tu tang dan cua 2 so la: ',a,' va ',b)
else write(' Thu tu tang dan cua 2 so la: ',b,' va ',a);
readln;
end.
1)
var a,b:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
writeln(' Tong cua ',a,' va ',b,' la ',a+b);
writeln(' Hieu cua ',a,' va ',b,' la ',a-b);
writeln(' Tich cua ',a,' va ',b,' la ',a*b);
if b<>0 then writeln(' Thuong cua ',a,' va ',b,' la ',a/b);
readln;
end.
2) var a:integer;
begin
write('a=');readln(a);
if (a mod 2=0) then writeln(a,' la so chan ')
else writeln(a,' la so le ');
readln;
end.
4)
var a:integer;
begin
write('a=');readln(a);
if (a mod 3=0) then writeln(a,' la so chia het cho 3 ')
else writeln(a,' khong phai so chia het cho 3 ');
readln;
end.
var a:integer;
begin
write('a=');readln(a);
if (a mod 2=0) then write(a,' la so chan')
else write(a,' la so le');
readln;
end.
