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

Viết chương trình nhập vào số nguyên n in ra màn hình các số nguyên tố nhỏ hơn và tổng các  số nguyên tố đó (pascal)

Nguyễn Lê Phước Thịnh
20 tháng 1 2022 lúc 15:11

uses crt;

var n,i,dem,j,t:integer;

kt:boolean;

begin

clrscr;

readln(n);

t:=0;

for i:=2 to n do 

begin

kt:=true;

for j:=2 to i-1 do 

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

if kt=true then 

begin

write(i:4);

t:=t+i;

end;

end;

writeln;

writeln(t);

readln;

end.


Các câu hỏi tương tự
Bảo Lê Nguyễn Vũ
Xem chi tiết
Kien
Xem chi tiết
Lê Gia Huy
Xem chi tiết
Quỳnh Hoa
Xem chi tiết
Nguyễn Tiến Dũng
Xem chi tiết
Logan
Xem chi tiết
2k15
Xem chi tiết
Đào Quyền
Xem chi tiết
NGuyễn Tuấn
Xem chi tiết