Program HOC24;
const fi='dodai.inp';
fo='xau.out';
var s: array[1..5] of string;
i: integer;
f: text;
procedure ip;
begin
assign(f,fi);
reset(f);
for i:=1 to 5 do readln(f,s[i]);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
for i:=1 to 5 do writeln(f,length(s[i]));
close(f);
end;
begin
ip;
out;
end.
Đúng 0
Bình luận (0)