Viết chương trình để nhập 1 số vào từ bàn phím.Sau đó máy tính sẽ thông báo đó có phải là số nguyên tố hay không Rồi sau đó hãy thông báo ra màn hình số vừa nhập có phải là số nguyên tố hay không,thông báo ra màn hình tổng của các số nguyên tố từ 2 đến n

1 câu trả lời

uses crt;
var n,i:integer; bl:boolean;
begin
 clrscr;
 bl:=true;
 write('nhap vao so can kiem tra tinh nguyen to: '); readln(n);
 if n<=1 then bl:=false;
 for i:=2 to trunc(sqrt(n)) then
  if n mod i=0 then bl:=false;
 if bl=true then write('so vua nhap nguyen to.')
 else write('so vua nhap khong nguyen to.');
readln;
end.

`#khoadang09`

Câu hỏi trong lớp Xem thêm