• Число X получают след образом: слева на право записывают без пробелов подряд числа от 1 до N(12345678910...N ).По числу N определить,сколько цифр в числе X

Ответы 1

  • varcnt, i,tmp, n, ans:longint;beginWriteln('Введите n -> ');Readln(n);for i:= 1 to n do  begin    tmp:= i;    cnt:= 0;    while tmp > 0 do      begin        inc(cnt);        tmp := tmp div 10;      end;    ans:= ans + cnt;  end;Writeln(ans);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years