给出一个正整数N(N

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/27 20:41:01
给出一个正整数N(N给出一个正整数N(N给出一个正整数N(Nvars,n,i,j:longint;begin readln(n); fori:=1tondo begin&

给出一个正整数N(N
给出一个正整数N(N

给出一个正整数N(N

var s,n,i,j:longint;

begin

  readln(n);

  for i:=1 to n do

  begin

    j:=i;

    while j>0 do

    begin

      inc(s,j mod 10);

      j:=j div 10;

    end;

  end;

  writeln(s);

end.