Question

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 vao co phai la so nguyen to ko

Answer 1

 

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.