lập chương trình nhập vào số nguyên dương N .Thông báo ra màn hình N có chia hết cho 5 và chia hết cho k hay ko .với k được nhập vào

0 bình luận về “lập chương trình nhập vào số nguyên dương N .Thông báo ra màn hình N có chia hết cho 5 và chia hết cho k hay ko .với k được nhập vào”

1. Program Chia;
   Uses crt;
   Var n,k: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           Write(‘Nhap k: ‘); Readln(k);

           If (n mod 5=0) and (n mod k=0) then Write(n,’ chia het cho 5 va ‘,k)
           Else Write(n,’ khong chia het cho 5 va ‘,k);
           Readln
   End.

   Bình luận

2. uses crt;
   var n,k:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      write(‘Nhap k: ‘);readln(k);
      if n mod 5=0 then 
         writeln(n,’ chia het cho 5′)
      else
         writeln(n,’ khong chia het cho 5′);
      if n mod k=0 then 
         writeln(n,’ chia het cho ‘,k)if n mod 5=0 then 
         writeln(n,’ chia het cho 5′);
      else
         writeln(n,’ khong chia het cho 5′);
      else
         writeln(n,’ khong chia het cho ‘,k);
   readln
   end.

   Bình luận