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

Question

Информатика

Калидка

20 октября, 08:38

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

+1

Ответы (2)

Знаете ответ?

Клементина · Answer 1

Var n, i:longint;

Begin

readln (n) ;

for i:1 to n do

write (i) ;

writeln (n) ;

End.

Леонида · Answer 2

Var

cnt, i, tmp, n, ans:longint;

begin

Writeln ('Введите 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.