viết chương trình nhập số nguyên x y từ bàn phím và in ra màn hình kết quả kiểm tra xem tổng của chúng cs chia hết cho 5 ko (mai mik thi r mong các bạn tl gùm)

1 câu trả lời

Program kt_hk_1;

Uses       crt;

Var         x,y: integer;

Begin     

       Clrscr;

       Write('nhap x va y :'); readln(x,y);

       If x+y mod 5= 0 then writeln(x+y,'chia het cho 5') else writeln(x+y,'khong chia het cho 5');

      Readln;

End.

     

Câu hỏi trong lớp Xem thêm