Viết chương trình nhập vào một số n, xuất ra những số nguyên tố nhỏ hơn hoặc bằng n và tổng của tất cả những số nguyên tố đó. giúp mình với mình đang cần gấp
2 câu trả lời
mình gửi bạn!!!
uses crt;
var n,i,kt,j,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
writeln('cac so nguyen to nho hon hoac bang ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then begin
write(i:4);
t:=t+i;
end;
end;
writeln;
writeln('tong cac so nguyen to nho hon hoac bang ',n,' la: ',t);
readln;
end
white2k9!!!
uses crt;
var n,i,kt,j,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
writeln('cac so nguyen to nho hon hoac bang ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then begin
write(i:4);
t:=t+i;
end;
end;
writeln;
writeln('tong cac so nguyen to nho hon hoac bang ',n,' la: ',t);
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
