Question

[Quang Anh Nguyễn]

1. Viết chương trình nhập vào 1 số n (tên file chương trình là nto.pas). Tìm các số nguyên tố nhỏ hơn hoặc bằng n. - Dữ liệu vào: Từ file nto.inp gồm 1 dòng chứa số N - Dữ liệu ra: In ra file nto.out gồm 1 dòng: Chứa các số nguyên tố (Mỗi số cách nhau 1 dấu cách)

Answer 1

[Quang Anh Nguyễn]

GIẢI HỘ MK NHA

Answer 2

[Nguyễn Lê Phước Thịnh]

const fi='nto.inp';

fo='nto.out';

var f1,f2:text;

n,i,kt,j:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

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 write(f2,i:4);

end;

close(f1);

close(f2);

end.