KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
program songuyento; uses crt; var n,i,j: integer; begin clrscr; write(‘ nhap so n:’);readln(n); for i:=4 to n do begin j:=2; while i mod j <>0 do j:=j+1; if j=i then write(j:4); end; readln end.
program SNT;
uses crt;
var n,i,j:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=2 to n do
begin
j:=2;
while i mod j <>0 do j:=j+1;
if j=i then write(j:4);
end;
write(n);
readln
end.
program songuyento;
uses crt;
var n,i,j: integer;
begin
clrscr;
write(‘ nhap so n:’);readln(n);
for i:=4 to n do
begin
j:=2;
while i mod j <>0 do j:=j+1;
if j=i then write(j:4);
end;
readln
end.