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

0 bình luận về “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. 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.

   Bình luận