Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
bar em

chuong trinh yeu cau nguoi nhap vao 1 so nho hon 100 neu nguoi dung nhap vao 1 so lon hon 100 thi yeu cau nguoi nhap lai sau do kiem tra so nhap vaof co phair la so nguen to ko

giups em sap thi r a

 

Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 10:06

uses crt;

var n,i:integer;

kt:boolean;

begin

clrscr;

repeat

readln(n);

until n<=100;

if (n<2) then writeln('khong la so nguyen to')

else begin

kt:=true;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=false;

if kt=true then write('la so nguyen to')

else write('khong la so nguyen to');

end;

readln;

end.


Các câu hỏi tương tự
bar em
Xem chi tiết
phamphuc
Xem chi tiết
Phạm Thế Dũng
Xem chi tiết
Hoàng Vũ
Xem chi tiết
8G_4 Nguyễn Thu Hiền
Xem chi tiết
Hoàng Lâm
Xem chi tiết
tham vọng người đàn bà
Xem chi tiết
๖ۣۜHả๖ۣۜI
Xem chi tiết
Minh Khôi
Xem chi tiết