viết chương trình :nhập một số nguyên dương N ( 0<N<999) , hỏi chữ sô hàng trăm có chia hết cho 5 hay không ,n là số chẵn hay lẻ
1 câu trả lời
program ctpt;
uses crt;
var N, t: integer;
begin
clrscr;
write('Nhap so nguyen duong N = '); readln(N);
if (0<N) and (N<999) then
begin
if n mod 2 = 0 then write(N, ' la so chan') else write(N, ' la so le');
t:=N div 100;
if t mod 5 = 0 then write('Chu so hang tram chia het cho 5') else
write('Chu so hang tram khong chia het cho 5');
end;
else write('0<N<999. Nhap sai, hay nhap lai!');
readln
end.
