Помогите решить задачу по информатике на языке pascalЧисло Х получают следующим об??азом: слева на право записывают без пробелов подряд числа от 1 до N (123456...N). По заданному числу N определить, сколько цифр в числе Х. Помогите пожалуйста, даю много баллов, программировать умею, саму задачу не понимаю.
?азом: слева на право записывают без пробелов подряд числа от 1 до N (123456...N). По заданному числу N определить, сколько цифр в числе Х. Помогите пожалуйста, даю много баллов, программировать умею, саму задачу не понимаю.
Можно покороче и без biginteger, и без массивов)))var n,k,s,m,p:longint;begin Read(n); s:=0; k:=0; m:=1; p:=n; repeat inc(k); if p<10 then s:=s+k*(n-m+1) else begin s:=s+k*9*m; m:=10*m end; p:=p div 10 until p=0; Writeln(s); end.Примеры:55152112025215353239636157
Также наши пользователи интересуются:
В какой басне Крылова высмеивается невежество?Read and complete. Ritchie Brown is 24 years old.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите решить задачу по информатике на языке pascalЧисло Х получают следующим об?» от пользователя Глеб Авраменко в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!