Tin học Viết phương trình

[myhanh08232003@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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' .

 

[02-07-2019.]

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' .

Mình không biết tạo tệp:

Var sum,dem,x,i: integer;
sum:=0;dem:=0;
For i:=1 to 20 do
Begin
Read(x);
If x mod 2=0 then sum:=sum+x
Else inc(dem);
End;
Writeln('tong: ',sum);
Write('so so le: ',dem);
End.