Viết chương trình Cho tệp ‘DULIEU.TXT’ chứa 2 số nguyên x, y cách nhau bởi 1 dấu cách, hãy đọc x,y từ tệp ‘DULIEU.TXT’, tính tổng các số chẵn trong ph

Viết chương trình
Cho tệp ‘DULIEU.TXT’ chứa 2 số nguyên x, y cách nhau bởi 1 dấu cách, hãy đọc x,y từ tệp ‘DULIEU.TXT’, tính tổng các số chẵn trong phạm vi từ x đến ykết quả ghi vào tệp ‘OUT.TXT’

0 bình luận về “Viết chương trình Cho tệp ‘DULIEU.TXT’ chứa 2 số nguyên x, y cách nhau bởi 1 dấu cách, hãy đọc x,y từ tệp ‘DULIEU.TXT’, tính tổng các số chẵn trong ph”

  1. uses crt;
    var x,y,i,t:integer;
        fi,fo:text;
    begin
    clrscr;
    assign(fi,’DULIEU.TXT’);reset(fi);
    assign(fo,’OUT.TXT’);rewrite(fo);
    read(fi,x);read(fi,y);
    for i:=x to y do
     if i mod 2 = 0 then t:=t+i;
    write(fo,t);
    close(fi);close(fo);
    readln
    end.

    Bình luận

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