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? Viết rõ.

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? Viết rõ.”

1. uses crt;
   var a,b:longint;
   procedure kt;
   var s:longint;
   begin
      s:=a+b;
      if (s>0)and(s mod 3=0) then 
         writeln(‘Tong cua chung la so duong va chia het cho 3’) else
         writeln(‘Tong cua chung khong la so duong va chia het cho 3’);
   end; 
   begin
   clrscr;
      write(‘Nhap a: ‘);readln(a);
      write(‘Nhap b: ‘);readln(b);
      kt;
   readln
   end.

   Bình luận

2. B1: Nhập 2 số

   B2: t:=a+b

   B3: Nếu t>0 thì viết là số dương ngược lại ghi không là số dương

   B4: Nếu t mod 3=0 thì viết chia hết cho 3 ngược lại ghi không chia hết cho 3

   B5: Kết thúc.

   Chương trình:

   program tong_ketqua;

   uses crt;

   var a,b:integer;

   {–Chuong-trinh-con–}

   procedure xuly(a,b:integer);

   var t:integer;

   begin

          t:=a+b;

          writeln(‘Tong la: ‘,t);

          if t>0 then writeln(‘Tong la so duong’)

                 else writeln(‘Tong khong phai so duong’);

          if t mod 3=0 then write(‘Tong chia het cho 3’)

                 else write(‘Tong khong chia het cho 3’);

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

          clrscr;

          write(‘Nhap a: ‘);  readln(a);

          write(‘Nhap b: ‘);   readln(b);

          xuly(a,b);

          readln;

   end.

          

   Bình luận