2. Viết chương trình nhập vào 1 số nguyên n,kiểm tra xem n có phải số nguyên hay không
2 câu trả lời
program xt;
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap vao so nguyen:=');readln(n);
if n<=1 then writeln('n khong phai so nguyen to') else
begin
i:=2;
while n mod i<>0 do i:=i+1;
if i=n then writeln('so nguyen to la:',n) else writeln('khong phai la so nguyen to:',n);
end;
readln
end.
Program Hotboy ;
Uses crt;
Var n, i: integer;
Hb: boolean;
Begin
Clrscr;
Hb:=true;
Write('Nhap n: ');
Readln(n);
For i:= 2 to n - 1do
If (n mod i = 0) then
Hb :=false;
If Hb then
Write(n,' la so nguyen to')
Else
Write(n, ' khong phai la so nguyen to');
Readln
End.
Câu hỏi trong lớp
Xem thêm