Cho tệp BT3.txt được lưu trong ổ đĩa D:\ gồm có n số nguyên, mỗi số cách nhau 1 dấu cách. VCT đọc nội dung từ tệp BT3.txt. Đếm số lượng số chẵn. Xuất ra màn hình số lượng số chẵn đếm được.
Giúp mình giải chi tiết với ạ.
Những câu hỏi liên quan
Cho tệp Input. Txt chứa liên tiếp các số nguyên mỗi số cách nhau ít nhất một dấu phẩy viết chương trình đọc dãy số đó và đếm các số chia hết cho 3 ghi kết quả vào tệp Chiahet.txt
Xem chi tiết
const fi='input.txt'
fo='chiahet.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
writeln(f2,dem);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
Cho tệp ăn.txt chứa dãy các số nguyên liên tiếp viết cách nhau 1 dấu cách .viết CT đọc dữ liệu từ tệp txt tính tổng các số chẵn và tổng các số lẻ ghi kết quả vào tập kq.txt trên 2 dòng
Viết chương trình nhập vào mảng một chiều C gồm có n số nguyên. Ghi mảng C vừa nhập vào tệp có tên là MANG3.TXT. Đọc dữ liệu từ tệp MANG3.TXT, in ra màn hình các số lẻ trong mảng.
Program HOC24;
var i,n: integer;
c: array[1..1000] of integer;
f: text;
begin
assign(f,'MANG3.TXT');
reset(f);
readln(f,n);
for i:=1 to n do read(f,c[i]);
close(f);
for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');
readln
end.
Đúng 3
Bình luận (0)
Viết chương trình nhập vào mảng một chiều C gồm có n số nguyên. Ghi mảng C vừa nhập vào tệp có tên là MANG3.TXT. Đọc dữ liệu từ tệp MANG3.TXT, in ra màn hình các số lẻ trong mảng.
CHo tệp DULIEU TXT gồm nhiều dòng mỗi dòng gồm 2 số nguyên x và y. Đọc dữ liệu từ tệp vào ghi ra tệp KETQUA TXT số nhỏ hơn trong 2 số,mỗi số ghi trên 1 dòng.
const fi='dulieu.txt'
fo='ketqua.txt'
var f1,f2:text;
a,b:array[1..100]of integer;
n,i:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n],b[n]);
end;
for i:=1 to n do
begin
if (a[i]<b[i]) then writeln(f2,a[i])
else writeln(f2,b[i]);
end;
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
Tệp “DL.TXT chứa 2 dòng:
- Dòng 1: chứa 1 số nguyên n là số phần tử có trong tệp
Dòng 2: chứa dãy n số nguyên, các số cách nhau ít nhất1 khoảng trắng.
a) Xuất ra màn hình các số dương có trong tệp.
b) Cho biết trong tệp có bao nhiêu số nguyên chẵn?
c) Ghi các số lẻ vào tệp “SOLE.TXT”.
d) Hãy tính tổng các số chẵn có trong tệp. Ghi kết quả ra màn hình.
e) Tính tổng các số dương rồi ghi kết quả vào tệp D:soduong.txt
f) Hãy ghi các số nguyên tố vào tệp “SNT.TXT”
g) Cho biết trong tệp có bao nhiê...
Đọc tiếp
Tệp “DL.TXT" chứa 2 dòng:
- Dòng 1: chứa 1 số nguyên n là số phần tử có trong tệp
Dòng 2: chứa dãy n số nguyên, các số cách nhau ít nhất1 khoảng trắng.
a) Xuất ra màn hình các số dương có trong tệp.
b) Cho biết trong tệp có bao nhiêu số nguyên chẵn?
c) Ghi các số lẻ vào tệp “SOLE.TXT”.
d) Hãy tính tổng các số chẵn có trong tệp. Ghi kết quả ra màn hình.
e) Tính tổng các số dương rồi ghi kết quả vào tệp "D:\soduong.txt"
f) Hãy ghi các số nguyên tố vào tệp “SNT.TXT”
g) Cho biết trong tệp có bao nhiêu số nguyên tố?
Cho tệp DL.TXT có nội dung như sau: - Số nguyên n ( dòng 1 ) - Dãy gồm n số nguyên ( dòng 2 ) ( Các số cách nhau bởi dấu cách ) Viết chương trình ghi các số chẵn của dãy số trên vào tệp KQ.TXT
Cho tệp D:\DuLieu.txt. gồm nhiều dòng, mỗi dòng chứa 2 số nguyên. VCT đọc các cặp số nguyên trong tệp đã cho và xuất ra màn hình tổng của từng cặp số tương ứng
uses crt;
const fi='dulieu.txt'
var f1:text;
a,b:array[1..100]of integer;
n,i:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(a[n],b[n]);
end;
for i:=1 to n do
writeln(a[i]+b[i]);
close(f1);
readln;
end.
Đúng 1
Bình luận (1)
câu 1: cho tệp tìm câu1.txt gồm n số nguyên .Lập tính tìm các số chẵn rồ ghi vào tệp ketqua.txt
câu 2: tạo tập tìm được lưu tên D:\Bai1.txt chứa 2 số nguyên a,b.Sau đó viết chương trình đọc dữ liệu từ tệp tin trên và in ra màn hình căn a^2+b^2
Câu 1. Bạn nêu rõ đề nhé
Câu 2:
Program hotrotinhoc_hoc24;
const fi='D:\bai1.txt';
var a,b: integer;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b);
close(f);
end;
begin
ip;
write(a*a+b*b);
readln
end.
Đúng 0
Bình luận (0)