Bài 16: Ví dụ làm việc với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Vi Sa

tệp TXT có các số nguyên, mỗi số một dòng. Viết chương trình đọc các số này vào mảng A và kiểm tra mản này có bao nhiêu số nguyên tố. Lưu ý: trong chương trình trên phải áp dụng chương trình con

Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:50

uses crt;

const fi='tep.txt'

var f1:text;

a:array[1..100]of integer;

i,n,kt,j,dem:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

dem:=0;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then inc(dem);

end;

writeln(dem);

close(f1);

readln;

end.


Các câu hỏi tương tự
Tran Ngô
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Minh
Xem chi tiết
Exo Aeri
Xem chi tiết
Lê Đức Tài
Xem chi tiết
Nguyễn Nhật Bình
Xem chi tiết
Phạm Đức Huy
Xem chi tiết
Huệ Bùi Thị Kim
Xem chi tiết