Cho tệp văn bản 'IN.PAS' có n + 1 dòng
- Dòng đầu tiên chứa số nguyên n là chỉ số phần tử
- n dòng tiếp theo mỗi dòng chưa 1 số nguyên
Viết chương trình sử dụng để đọc và tính tổng các số nguyên lẻ trong n số nguyên đó .
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
11 tháng 4 2021
const fi1='nguyen1.txt';
fi2='nguyen2.txt';
fo='nguyen.txt';
var f1,f2,f3:text;
a,b:array[1..100]of integer;
n,m,i:integer;
begin
assign(f1,fi1); reset(f1);
assign(f2,fi2); reset(f2);
assign(f3,fo); rewrite(f3);
n:=0;
while not eof(f1) do
begin
inc(n);
readln(f1,a[n]);
end;
m:=0;
while not eof(f2) do
begin
m:=m+1;
readln(f1,b[m]);
end;
for i:=1 to n do
writeln(f3,a[i]);
for i:=1 to m do
writeln(f3,b[i]);
close(f1);
close(f2);
close(f3);
end.
TM
23 tháng 2 2021
Câu 1. Xét theo cách thức truy cập dữ liệu, tệp được phân thành những loại nào?
A. Tệp truy cập tuần tự và tệp truy cập trực tiếp.
B. Tệp văn bản và tệp có cấu trúc.
C. Tệp truy cập tuần tự, tệp truy cập trực tiếp và tệp có cấu trúc.
D. Tệp văn bản, tệp có cấu trúc và tệp số nguyên.
Câu 2. Để khai báo biến tệp văn bản, ta dùng cú pháp:
A. var <tên biến tệp>: text; B. var <tên tệp>: text;
C. var <tên biến tệp, tên tệp>: text; D. var <tên biến tệp>: string;
Câu 4. Cú pháp của câu lệnh gắn tên tệp cho biến tệp:
A. assign(<biến tệp>, <tên tệp>); B. assign(<tên tệp>, <biến tệp>);
C. assign(<biến tệp>; <tên tệp>); D. assign(<tên tệp>);
23 tháng 2 2021
Câu 1: B
Câu 2: A
Câu 3: D
Câu 4: B
Câu 5: Không có câu nào đúng
A
1
NA
Nguyễn An Ninh
VIP
6 tháng 5 2023
Để đưa nội dung của nhiều tệp văn bản vào một tệp văn bản mới, bạn có thể sử dụng tính năng "Copy and Paste" (sao chép và dán) hoặc "Insert" (chèn) của trình soạn thảo văn bản. Cụ thể:
1. Sao chép nội dung của tệp văn bản cần thêm vào tệp mới.
2. Mở tệp văn bản mới và đưa con trỏ đến vị trí muốn chèn nội dung.
3. Sử dụng tính năng "Paste" (dán) để dán nội dung đã sao chép vào tệp moi.
4. Lặp lại quá trình sao chép và dán cho các tệp văn bản khác nếu cần thiết.
Ngoài ra, nếu bạn muốn hợp nhất nhiều tệp văn bản thành một tệp duy nhất, bạn có thể sử dụng tính năng "Merge" (hợp nhất) của các phần mềm xử lý văn bản như Microsoft Word hoặc Google Docs.
20 tháng 4 2022
uses crt;
const fi='songuyen.inp';
var f1:text;
a:array[1..100]of integer;
i,n,kt,j:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
close(f1);
readln;
end.
