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