Question

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

Answer 1

uses crt;

const fi='bt3.txt'';

var f1:text;

n,i,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

assign(f1,fi); reset(f1);

n:=0;

while eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(dem);

writeln('So so chan trong day la: ',dem);

close(f1);

readln;

end.

Answer 2

Program hotrotinhoc_hoc24;

const fi='D:\BT3.txt';

var f: text;

i,n,d: integer;

a: array[1..32000] of integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do

read(f,a[i]);

d:=0;

for i:=1 to n do if a[i] mod 2=0 then d:=d+1;

end;

begin

write(d);

readln

end.