Cho N là số nguyên dương nhập từ bàn phím. Hãy cho biết chương trình tính trung bình cộng của các số nguyên tố kể từ 2 đến N ( không sử dụng mảng) pascal
ví dụ
Nhap N=7
Trung binh cong so nguyen to nho hon hoac bang 7 la: 4.3
Cho N là số nguyên dương nhập từ bàn phím. Hãy cho biết chương trình tính trung bình cộng của các số nguyên tố kể từ 2 đến N ( không sử dụng mảng) pascal
ví dụ
Nhap N=7
Trung binh cong so nguyen to nho hon hoac bang 7 la: 4.3
program trungbinhngto;
uses crt;
var n,i,d,j:integer;
t:longint;
kt:boolean;
begin
clrscr;
write(‘Nhap N= ‘); readln(n);
t:=0; d:=0;
for i:=2 to n do
begin
kt:=true;
for j:=trunc(sqrt(i)) do
if i mod j=0 then kt:=false;
if kt=true then
begin
t:=t+i;
d:=d+1;
end;
end;
write(‘Trung binh cong so nguyen to nho hon hoac bang ‘,n,’ la: ‘,t/d:2:1;
readln
end.
uses crt;
var i,n,t,d:longint;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while (a mod i<>0) do inc(i);
nt:=i=a;
end;
begin
clrscr;
write(‘N=’);readln(n);
for i:=2 to n do if nt(i) then begin inc(d); t:=t+i; end;
writeln(‘Trung binh cong so nguyen to nho hon hoac bang 7 la: ‘,t/d:0:1);
readln
end.