Nhập hai số a b viết chương trình con tổng của chúng có phải dương và chia hết cho 3 không
1 câu trả lời
uses crt;
var a,b,t:integer;
function kt(a,b:integer):integer;
begin
write('nhap a: ');readln(a);
write('nhap b: ');readln(b);
t:=a+b;
if t>0 then write('tong duong va ') else write('tong am va ');
if t mod 3 = 0 then write('chia het cho 3') else write('khong chia het cho 3);
end;
begin
clrscr;
kt(a,b);
readln;
end.
