viết chương trình nhập vào một số và kiểm tra xem số đó chia hết cho 5 hay cho 7

0 bình luận về “viết chương trình nhập vào một số và kiểm tra xem số đó chia hết cho 5 hay cho 7”

1. Program chiahet;

   Uses crt;

   Var n: integer;

   Begin

    Clrscr;

    Write(‘Nhap n: ‘); Readln (n);

    If n mod 5 = 0 then writeln(‘n chia het cho 5’);

    If n mod 7 = 0 then writeln(‘n chia het cho 7’);

    If (n mod 5 = 0) and (n mod 7 = 0) then writeln(‘n chia het cho ca 5 va 7’)

     else (n mod 5 <> 0) and (n mod 7 <> 0) then writeln(‘n khong chia het cho ca 5 va 7’);

    Readln;

   End.

   Bình luận

2. Program chia_het;

   uses crt;

   var n: integer;

   Begin

   clrscr;

   Write(‘nhap so n:’);  readln(n);

   if n mod 5=0 then write(‘so nay chia het cho 5’)

   else writeln(‘so nay khong chia het cho 5’);

   if n mod 7=0 then write(‘so nay chia het cho 7’)

   else writeln(‘so nay khong chia het cho 7’);

   readln

   End.

   Bình luận