Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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)
Quang Anh Nguyễn
9 tháng 10 2020 lúc 20:47

GIẢI HỘ MK NHA

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
10 tháng 10 2020 lúc 17:24

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.


Các câu hỏi tương tự
Tích Nguyệt
Xem chi tiết
Hưng Quốc
Xem chi tiết
PGD FF
Xem chi tiết
31 Minh Thư
Xem chi tiết
Mon_LAK
Xem chi tiết
Huệ Hà
Xem chi tiết
Duongtrucqui
Xem chi tiết
Lục Hạ Vy
Xem chi tiết
ytkc
Xem chi tiết