Question

Giúp em bài này với ạ:

Viết chương tình nhập sâu dài không quá 255 ký tự .Hãy tính tổng số chẵn rồi ghi ra tệp "dưlieu.dat"

Answer 1

Program HOC24;

var s: string;

code,t: integer;

c: byte;

f: text;

procedure out;

begin

assign(f,'dulieu.dat');

rewrite(f);

write(f,t);

close(f);

end;

begin

write('Nhap xau : '); readln(s);

t:=0;

for i:=1 to length(s) do

if (s[i] in ['2'..'8']) then

begin

val(s[i],c,code);

if c mod 2=0 then t:=t+c;

end;

out;

readln

end.