Question

Nhập 2 số nguyên.

In ra màn hình số lớn hơn.

In ra màn hình tổng của chúng.

Kiểm tra tích của chúng có chia hết cho 3 không.

Answer 1

*Cái này mới đúng nha

Program bai1;

uses crt;

var a,b,s: longint;

begin;

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

if a > b then writeln('so lon nhat la : ' , a);

if a < b then writeln('so lon nhat la : ', b);

if a = b then writeln('khong co so nao lon nhat ');

s:=a+b;

write('tong cua 2 so =' ,s);

if s mod 3 = 0 then writeln('tong cua chung chia het cho 3 ')

else

writeln('tong cua chung khong chia het cho 3');

readln;

end.

Answer 2

Program bai1;

uses crt;

var a,b,s: longint;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

if a > b then writeln('so lon nhat la :' ,a);

if b > a then writeln('so lon nhat la :' ,b);

if a = b then writeln('khong co so nao lon nhat ');

s:=a+b;

writeln('tong cua hai so = ',s);

readln;

end.