viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím )
viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím )
By Gabriella
By Gabriella
viết ct tạo tệp có tên là huanvo.DAT chứa dãy số gồm N số nguyên liên tiếp ( N được nhập từ bàn phím )
program tao_tep;
uses crt;
var f:text;
n,i:integer;
begin
clrscr;
Assign(f,’huanvo.DAT’); rewrite(f);
write(‘Nhap N: ‘); readln(n);
for i:=1 to n do write(f,i,’ ‘);
close(f);
end.
var i,n, temp: longint; Arr: array[1..100000000] of longint;
begin
write(‘Nhap so N: ‘);
readln(n);
for i:=1 to n do
begin
write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
readln(Arr[i]);
end;
assign(output,’huanvo.DAT’);
rewrite(output);
for i:=1 to n do write(Arr[i],’ ‘);
end.