giả sử có 1 tệp chứa các số nguyên tên là songuyen.txt viết chương trình đưa các số nguyên dương sang tệp soduong.out còn 12p thui ạ 🙂
giả sử có 1 tệp chứa các số nguyên tên là songuyen.txt viết chương trình đưa các số nguyên dương sang tệp soduong.out còn 12p thui ạ :)
By Peyton
var f1, f2: text;
a: integer;
Begin
Assign(f1, ‘songuyen.txt’); reset(f1);
Assign(f2, ‘soduong.out’); rewrite(f2);
While not eoln(f1) do
Begin
Read(f1, a);
If a>0 then write(f2, a, ‘ ‘);
End;
Close(f1); close(f2);
End.
var
inp, out: text;
num: integer;
Begin
Assign(inp, ‘songuyen.txt’);
Assign(out, ‘soduong.out’);
Reset(inp); rewrite(out);
While not eoln(inp) do
Begin
Read(f1, num);
If num>0 then write(out, num, ‘ ‘);
End;
Close(inp); close(out);
End.