Viết chương trình nhập dữ liệu từ tệp 'dulieusonguyen.txt' in ra màn hình các số nguyên dương

2 câu trả lời

program bai_giai;
uses ctr;
var f:text;
    n:integer;
begin
    clrscr;
    Assign(f,'dulieusonguyen.txt');  reset(f);
    while not eof(f) do
        begin
            read(f,n);
            if n>0 then write(n,' ');
        end;
    close(f); readln;
end.

uses crt;
var f:text;
    n:longint;
begin
clrscr;
    assign(f,'dulieusonguyen.txt');reset(f);
        while not(eoln(f))do
            begin
                read(f,n);
                if n>0 then write(n,' ');
            end;
    close(f);
readln;
end.

Câu hỏi trong lớp Xem thêm