Viết chương trình nhập vào một số nguyên n từ bàn phím, rồi xuất ra màn hình cho biết số nguyên n có chia hết cho 5 không? Nếu n chia hết 5 thì xuất ra màn hình :’ n chia hết cho 5’. Nếu n không chia hết cho thì xuất ra màn hình ‘n không chia cho 5’.

$#QLInkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program lmaoooooo;
uses crt;
var n: integer;
begin
          clrscr;
          writeln('Nhap gia tri n: '); readln(n);
          if (n mod 5 = 0) then writeln('Gia tri n chia het cho 5') else
                                             writeln('Gia tri n khong chia het cho 5');
          readln;
end.

uses Crt;

var n: integer;

begin

clrscr;

writeln('Nhap gia tri cua n');

readln(n);

if n mod 5 = 0  then writeln('n chia het cho 5') else writeln('n khong chia het cho 5');

readln;

end.