... string;
fin: text;
n, i, j, snam, snu: integer;
a: array[1 100] of string[23];
t: boolean;
(*==========================================*)
Function ho(hvt:string):string;
8
fin, fou: text;
n, i, ... Câu hỏi, ví dụ, bài tập nhưng theo
chiều ngược lại, tức là thực hiện các thao tác ghi.
(Bai 1)
Var f :text;
m,n:integer;
Begin
m:=10; n:=4;
assign(f, 'son.inf'); reWrite(f);
Write...
... 100.
Toàn văn chương trình:
program VD_03_14;
var
td,tn,tg : integer;
begin
writeln('Giai bai toan tram trau tram co.');
for td := 1 to 20 do
for tn := 1 to 33 do begin
tg := 100