sử dụng câu lệnh while...do viết chương trình nhập 1 số bất kì. kiểm tra số đó có phải là số nguyên không?
2 câu trả lời
Chương trình kiểm tra số nguyên tố nhé.Vì nhập vào số nguyên thì nó là số nguyên,nhập vào số thực thì nó là số thực rồi
Program Hotboy;
Uses crt;
Var n, i:integer;
Ntn: boolean;
Begin
Ntn:=true;
Write('Nhap n');
Readln(n);
For i:= 2 to n - 1 do
( if n mod i = 0 ) then ntn :=false;
If ntn then write(n,' la so nguyen to')
Else
Write(n, ' khong la so nguyen to');
Readln
End.