Cho tệp 'SN.TXT' chứa 20 số nguyên, mỗi số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng. Viết chương trình tính tổng các số nguyên chẵn trong tệp, đếm xem có bao nhiêu số nguyên lẻ. Ghi kết quả ra tệp 'TONG.TXT' .

truongquocvinh22121988

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 72 xem

1 trả lời

Thích Trả lời

linhtanhoa88

program bai_giai;
var f,g:text;
n,i,t,d:longint;
begin
Assign(f,'SN.TXT'); reset(f);
Assign(g,'TONG.TXT'); rewrite(g);
t:=0; d:=0;
for i:=1 to 20 do
begin
read(f,n);
if n mod 2=0 then t:=t+n else d:=d+1;
end;
write(g,t,' ',d);
close(f); close(g);
end.

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

vietanhnva2711

uses crt;
var f1,f2:text;
n,i,tong,dem:integer;
begin
Assign(f1,'SN.TXT');
reset(f1);
Assign(f2,'TONG.TXT');
rewrite(g);
tong:=0; dem:=0;
for i:=1 to 20 do
begin
read(f1,n);
if n mod 2=0 then tong:=tong+n;
if n mod 2=1 then dem:=dem+1;
end;
write(f2,tong,' ',dem);
close(g);
end.

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

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

viết liên tiếp từ 1 đến 12 được số A = 1234 ... 1112 . Số A có thể có 81 ước được không

Xác định danh từ, động từ, tính từ trong những từ sau: Hoa hồng, buồn bã, đen nhánh, yêu thương, tình yêu, vui chơi, vui tươi, đáng yêu. - Danh từ - Động từ - Tính từ

Tính giá trị của biểu thức: a) (-130).(-10).(-a) với a= 6 b) ( -3) . (-5).(-7),(-9) ,b với b= 12 Giúp mình nha Cảm ơn cả nhà

Giúp mh 10 câu với ạ Exercise 1: Put the verbs in brackets in the correct form to complete the sentences. 1. At 7pm yesterday, we .............................. (listen) to music. 2. When I (leave) .............................. the house,it (snow).............................. 3. He (take) .......................a shower when the telephone (ring)....................... 4. Susie (watch) ......................a film when she (hear) ....................... the noise. 5. It(be) .....................a hot day last Monday. Exercise 2: Choose the best answer A, B, C, or D to complete the sentences. 1. She was thoughtfully looking at him while he a newspaper A. read B. was reading C. has read 2. When we came, they _________ a meeting in the hall. A. are having B. were having C. have been having 3. She some cakes yesterday at 2p.m A. make B. has been making C. has made D. has been reading D. have had D. was making 4. You were wearing your new hat when I ...................... you yesterday. A. meet B. met C. was meeting D. is meeting 5. Carol _______ last night, I ______ my favorite show on television. A. was calling / watched C. called / have watched B. called / was watching D. had called / watched

Lập phương trình đường phân giác của các góc giữa hai đường thẳng sau a) (d1) : 2x+4y+7=0 và (d2) : 5x+3y+7=0 b) (d1) : -3x+4y+8=0 và (d2) : x-y+6 = 0

Cho ∆ABC có A (1;0) B(2;-1) C(0;7). Tìm tọa độ a) Chân đường phân giác trong và ngoài góc A b) Tâm đường tròn nội tiếp ∆ABC

các bạn giải hộ mk nhé mk đang cần gấp

Nếu sức khỏe không tốt dẫn đến hậu quả như thế nào đối với học tập?

Vì sao công nghiệp hóa hiện đại hóa dc xác định là nhiệm vụ trung tâm trong suốt thời kỳ quá độ đi lên XHCN ở nước ta

Điền từ: Every weekday, Mr. Tan goes to work at a ....... past eight in the morning

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