Cho tệp DATA.TXT chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống dòng. Hãy lập trình tìm và in các số chẵn tro

Cho tệp DATA.TXT chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống dòng. Hãy lập trình tìm và in các số chẵn trong tệp DATA.TXT ra màn hình.
Giúp mk vs ạ!

0 bình luận về “Cho tệp DATA.TXT chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống dòng. Hãy lập trình tìm và in các số chẵn tro”

  1. var fv,fr:text; b:longint;

    begin

    assign(fv,’DATA.inp’); reset(fv);

    assign(fr,’DATA.out’); rewrite(fr);

    while not eof(fv) do

    begin

     read(fv,b); 

    if (b mod 2 )=0 then write(fr,b,’ ‘); end;

    close(fv); close(fr); end.

    Bình luận

Viết một bình luận