Question

Bài 1: Viết chương trình đọc số nguyên dương n từ tệp C:\input.txt, ghi ra tệp
C:\output.txt tất cả các số nguyên từ 1 đến n.
C:\ Input.txt C:\ output.txt
7 1 2 3 4 5 6 7

Answer 1

const fi='input.txt';

fo='output.txt';

var f1,f2:text;

i,n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do

write(f2,i:4);

close(f1);

close(f2);

end.

Answer 2

Program hotrotinhoc_hoc24;

const fi='C:\Input.txt';

fo='C:\Output.txt';

var f: text;

i,n: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,n);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=1 to n do write(f,i,' ');

close(f);

end;

begin

ip;

out;

end.