Cho tệp văn bản 'SOLIEU.INP' gồm nhiều dòng mỗi dòng chứa một số nguyên . Viết công thức đọc các số nguyên từ tệp trên, tính và ghi vào tệp 'KETQUA.OUT' (lưu ở ổ đĩa D) số lượng các phần tử chẵn có trong tệp.

Taimo123

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

thuhuyen3903

var a,b:text;
s:integer;

begin
assign(a,'number.txt');
assign(b,'KQ.txt');
reset(a);
rewrite(b);
while not eof(a) do
begin
read(a,s);
if s mod 3 =0 then
writeln(b,'s=',s,s:3);
end;
close(a);
close(b);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

trinhdz

program bai_giai;
var f,g:text;
n,d:integer;
begin
Assign(f,'SOLIEU.INP'); reset(f);
Assign(g,'D:\KETQUA.OUT'); rewrite(g);
d:=0;
while not eof(f) do
begin
readln(f,n);
if n mod 2=0 then d:=d+1;
end;
write(g,d);
close(f); close(g);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

cho tam giác DEF cân tại D , các đường trung tuyến EN,FN cắt nhau tại G CMR : a)EM=FN b)DG là phân giác của EDF c)MN // EF d) 4GM > EF

Giúp em câu 24, 25 ạ. Em cảm ơn

Chúc mn buổi chiều vui vẻ ạ ! Mn vẽ hộ Cam một trong ba hình này với ! Cảm ơn mọi người 😊

1 1h25' x 4 2 3m ³ 42 dm ³ = .......... dm ³ 4150 dm ³ = ...........m ³ 3/4 m ³ = ..........dm ³ 2 3/4 ³ =............m ³

Viết đoạn văn có sử dụng câu đặc biệt câu rút gọn ghi lại cảm xúc của em trước một bài thơ hay * không chép trên mạng

K bt e làm đề này đúng chuk Mọi người làm lại giúp e với ạ Cảm ơn ạ 😍😍😍😍

Nhờ mọi người giải giúp mình với ạ. Cho tam giác ABC có AC=2AB. Trên cạnh AC lấy điểm M sao cho AM=AB. Trên tia đối của tia AB lấy điểm A sao cho BA=BD. Gọi K là giao điểm của DM và BC. Qua C kẻ đường thẳng song song với AD, qua D kẻ đường thẳng song song với AC chúng cắt nhau tại E. Chứng minh rằng A, K, E thẳng hàng.

nhận xét chung về phong trào chống pháp cuối thế kỉ xix ? có thể trả lời ngắn gọn hơn đc ko ạ . tại e thấy trên mạng dài quá

Anh Cường ơiii giúp e câu 6 với ạ , vẽ luôn giúp e cái hình 😳

Giúp mình mấy câu tiếng anh này.

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến