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? 13/08/2021 Bởi 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. Bình luận
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.
^_^