Question

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)

Answer 1

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.