viết chương trình nhập vào hai số a và b kiểm tra xem số này có phải là ước của số kia hay không? vd: nhập từ bàn phím: a=15 b=3 in ra màn hình: 3 là

0 bình luận về “viết chương trình nhập vào hai số a và b kiểm tra xem số này có phải là ước của số kia hay không? vd: nhập từ bàn phím: a=15 b=3 in ra màn hình: 3 là”

1. Program ct;

   Uses crt;

   Var a, b: integer;

   Begin 

    Clrscr;

    Write(‘nhap a, ,b’); Readln(a, ,b);

    If a mod b = 0 then writeln(b, ‘la uoc cua’ ,a)

     else a mod b <> 0 then writeln(b, ‘khong phai uoc cua’ ,a);

    If b mod a = 0 then writeln(a, ‘la uoc cua’ ,b)

     else b mod a <> 0 then writeln(a, ‘khong phai uoc cua’ ,b);

    Readln

   End.

   Bình luận

2. program Taylor;
   uses crt;
   var a,b:longint;
   begin
   clrscr;
      write(‘a=’);readln(a);
      write(‘b=’);readln(b);
      if (a<=b) then
        if b mod a=0 then writeln(a,’ la uoc cua ‘,b)
        else writeln(a,’ khong uoc cua ‘,b) else
        if a mod b=0 then writeln(b,’ la uoc cua ‘,a)
        else writeln(b,’ khong uoc cua ‘,a);
   readln
   end.

   ////////////////////////////////////////////////////////

   Test:

   

   Bình luận