Tin học Scratch

[Ngô Hoàng Anh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
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.

Viết chương trình hiện trên màn hình tất cả các số nguyên tố < 100
-.- Khó quá mong các bạn giúp nhé -.-

 

[Deathheart]

var     i:integer;
function          snt(n:integer):boolean;
var               d,j:integer;
begin
     snt:=true;
     d:=0;
     for j:=2 to n div 2 do
     if (n mod j)=0 then d:=d+1;
     if d>0 then snt:=false;
end;
begin
     for i:=2 to 100 do
     if snt(i) then write(i,' ');
     readln;
     readln;
end.