Viết chương trình nhập một số nguyên n, In ra màn hình n là số dương hay âm, chẵn hay lẻ và có chia hết cho 2 và 5 không
Viết chương trình nhập một số nguyên n, In ra màn hình n là số dương hay âm, chẵn hay lẻ và có chia hết cho 2 và 5 không
Program Hotboy ;
Uses crt;
Var n: longint;
Begin
Clrscr;
Write(‘nhap n’);
Readln(n);
If (n mod 2=0) and (n mod 5=0) then write(n,’chia het cho 2 va 5′)
Else
Write(n,’khong chia het cho 2 va 5′);
If ( n > 0) then write(n,’la so duong’) else write(n,’la so am’);
If (n mod 2=0) then write(n,’la so chan’) else write(n,’la so le’);
Readln
End.
program ct;
uses crt;
var n:integer;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
if n>0 then writeln(n,’ la so duong’) else writeln(n,’ la so am’);
if n mod 2=0 then writeln(n,’ la so chan’) else writeln(n,’ la so le’);
if (n mod 2=0) and (n mod 5=0) then writeln(n,’ chia het cho 2 va 5′)
else writeln(n,’ khong chia het cho 2 va 5′);
readln;
end.
Học tốt!