var
inp, out: text;
num: integer;
Begin
Assign(inp, 'songuyen.txt');
Assign(out, 'soduong.out');
Reset(inp); rewrite(out);
While not eoln(inp) do
Read(f1, num);
If num>0 then write(out, num, ' ');
End;
Close(inp); close(out);
End.
var f1, f2: text;
a: integer;
Assign(f1, 'songuyen.txt'); reset(f1);
Assign(f2, 'soduong.out'); rewrite(f2);
While not eoln(f1) do
Read(f1, a);
If a>0 then write(f2, a, ' ');
Close(f1); close(f2);
Cho biết vai trò và tác hại của sông và hồ đến đời sống và sản xuất của con người
Những cống hiến của Phong trào Tây Sơn đối với lịch sử dân tộc theo em cống hiến nào là quan tromgj nhất ? Vì sao
Trình bày ý nghĩa lịch sử của cuộc kháng chiến chống pháp(1945-1954)
Tại sao ếch nhái phải sống ở những nơi có độ ẩm cao và gần nước?
Giúp e câu 1-4 vs ạ. Em đang cần gấp
Trong thời gian từ 1919-1930 Nguyễn ai quốc đã có những cống hiến đối với cách mạnh Việt nam
Ai làm giúp em với ạ 03476191169177
Hiểu được mục đích, cuộc khởi nghĩa tiêu biểu, giai đoạn khi vua Hàm Nghi bị bắt
Giúp mình câu cuối chứng minh với
Tập làm văn ra bài chứng minh bảo vệ rừng là bảo vệ cuộc sống của chúng ta
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến