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?
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?
By Eva
By Eva
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?
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.
^_^