viết chương trình nhập số nguyên in ra màn hình :
A, số n đã nhập có phải là một số nguyên hay không?
B, số n đã nhập có phải số lẻ chia hết cho 3 không
viết chương trình nhập số nguyên in ra màn hình : A, số n đã nhập có phải là một số nguyên hay không? B, số n đã nhập có phải số lẻ chia hết cho 3 khô
By Bella
Uses crt;
var n:real;
begin
clrscr;
write(‘N = ‘);readln(n);
If trunc(n) = n then writeln(n,’ la mot so nguyen’);
If (n mod 2 = 1) and (n mod 3 = 0) then writeln(n,’ la so le chia het cho 3′);
readln;
end.
Program vv;
use crts;
Var n:integer;
Begin
clrscr;
Writeln(‘Nhap n’);Readln(n);
If trunc(n)=n then writeln(‘n là so nguyen’);
If (n mod 2=1) and (n mod 3=0) then Writeln(n,’ la so le chia het cho 3′);
readln;
End.