Chắc suất Đại học top - Giữ chỗ ngay!! ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Hãy tính tổng của các số nguyên tố!
tin 8 cơ bản hình như chỉ có tổng các SNT từ 1 đến n thôi hay sao á.Trớt quớt. Điều kiện đâu, các số nguyên tố tới mấy hay là các số nguyên tố của dãy số.
uses crt;
var i,n:integer;s:longint;
function snt(q:integer):boolean;
var w:integer;
begin
snt := true;
for w:=2 to trunc(sqrt(i)) do
if q mod w=0 then snt:=false;
end;
begin
clrscr;
write('Nhap n:');readln(n);
for i:=2 to n do
if snt(i)=true then s:=s+i;
write(s);
readln
end.
Mình tự làm thôi =)Bạn vừa mới đăng code là của trường nào vậy? Lớp mấy?
Chuẩn hóa? ¯\_(ツ)_/¯ .Tại thấy code không có chuẩn hóa nên mới hỏi. Nhưng mà nó đúng. Với lại, mình hỏi về cậu chứ không phải là cái code.
Mỗi bài làm 1 kiểu khác nhau chứ bạnChuẩn hóa: nhầm ý. Tối ưu hóa thì đúng hơn. Xin lỗi.
Ý mình muốn nói là code này chỉ sử dụng cho bài này thôi chứ cho vào bài khác là thua.
uses crt;
var i,n:integer;s:longint;
function snt(q:integer):boolean;
var w:integer;
begin
snt := true;
for w:=2 to trunc(sqrt(q)) do
if q mod w=0 then snt:=false;
end;
begin
clrscr;
write('Nhap n:');readln(n);
for i:=2 to n do
if snt(i)=true then s:=s+i;
write(s);
readln
end.