CHO SỐ NGUYÊN ASỬ DỤNG CẤU TRÚC RẼ NHÁNH NẾU … THÌ.. ĐỂ DIỄN ĐẠT A LÀ SỐ CHIA HẾT CHO 5 HAY KHÔNG CHO SỐ NGUYÊN A, VIẾT CÂU LỆNH IF – THEN ĐỂ THÔNG

0 bình luận về “CHO SỐ NGUYÊN ASỬ DỤNG CẤU TRÚC RẼ NHÁNH NẾU … THÌ.. ĐỂ DIỄN ĐẠT A LÀ SỐ CHIA HẾT CHO 5 HAY KHÔNG CHO SỐ NGUYÊN A, VIẾT CÂU LỆNH IF – THEN ĐỂ THÔNG”

1. program Bai;

   Uses crt;

    var a: integer;

   begin 

     write(‘Nhap a=’); readln(a);

   if a mod 5=0 then writeln(a, ‘ chia het cho 5’)

     else writeln(a, ‘ khong chia het cho 5’);

   readln 

   end. 

   ……………………………………

   program So_Le;

   uses crt;

    var a: integer;

   begin 

     write(‘Nhap a=’); readln(a);

    if a mod 2=0 then writeln(a, ‘La so chan’)

        else writeln(a, ‘La so le’);

   readln 

   end.

   Bình luận

2. Câu 1:

   Uses crt;
   Var a: integer;
   Begin
        Clrscr;
        Write(‘Nhap a = ‘); readln(a);
        If a mod 5 = 0 then writeln(a,’ chia het cho 5′);
        Readln
   End.

   Câu 2:

   Uses crt;
   Var a: integer;
   Begin
        Clrscr;
        Write(‘Nhap a = ‘); readln(a);
        If a mod 5 = 0 then writeln(a,’ chia het cho 5′);
        If a mod 2 = 1 then writeln(a,’ la so le);
   Readln
   End.

   Bình luận