输入一个字符(少于20个字符),求取并输出此字符串的长度(要求不用strlen函数)

如题所述

第1个回答  2015-11-25
var s:string; ans:longint;
begin
readln(s);
repeat
delete(s,1,1);
inc(ans);
until s='';
writeln(ans);
end.本回答被网友采纳
相似回答