Nhập vào 1 số nguyên gồm 4 chữ số kiểm tra tính chẳn lẽ của số đó 31/07/2021 Bởi Kaylee Nhập vào 1 số nguyên gồm 4 chữ số kiểm tra tính chẳn lẽ của số đó
Uses crt; Var t: integer; Begin Clrscr; Write(‘Nhap t = ‘); readln(t); If t mod 2 <> 0 then writeln(t,’ la so le’) Else writeln(t,’ la so chan’); Readln End. Bình luận
nè bạn
Uses crt;
Var t: integer;
Begin
Clrscr;
Write(‘Nhap t = ‘); readln(t);
If t mod 2 <> 0 then writeln(t,’ la so le’)
Else writeln(t,’ la so chan’);
Readln
End.