Question

Mn giúp e với ạ Cho tệp IN.INP chứ các xâu kia tự có dộ dài ko quá 255 kí tự. Tính và ghi kq ra tệp OUT.INP độ dài các xâu trong tệp IN.INP, mỗi kq ghi trên 1 dòng

Answer 1

const fi='inp.inp'

       fo='out.inp'

var f1,f2:text;

st:array[1..100]of string;

i,n:integer;

begin

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

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

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,st[n]);

end;

for i:=1 to n do 

  writeln(f2,length(st[i]));

close(f1);

close(f2);

end.