input 2 số nguyên a,b

output tổng a,b có chia hết chi 3 hay không

b1 nhập a,b

b2 tổng←a+b

b3 nếu tổng chia 3 dư không thì tổng a+b chia hết cho 3

b4 nếu  tổng chia 3 dư khác không thì tổng a+b không chia hết cho 3

b5 xuất kết quả, kết thúc

-------------------------------------------------------------------------------

uses crt;

var a,b,t;

begin;

write('a,b');

readln(a,b);

t:=a+b;

if t mod 3=0 then writeln('tong ',a,'+',b,'=',t,' chia het cho 3')

else

writeln('tong ',a,'+',b,'=',t,' khong chia het cho 3');

readln

end.

xác định bài toán:

input: a,b;

output: tổng hai số a,b có chia hết cho 3 hay không;

viết chương trình:

program ntn;

uses crt;

var a,b,s:longint;

begin

clrscr;

write('nhap a,b:);readln(a,b);

s:=a+b;

if(s mod 3=0)then write('tong cua hai so a,b chia het cho 3')else write('tong cua hai so a,b không chia het cho 3');

readln;

end.