Решить по информатике на языке pascal число х получают следующим образом: слева на право записывают без пробелов подряд числа от 1 до n ( по заданному числу n определить, сколько цифр в числе х. , много , программировать умею, саму не понимаю.

Var
  s: biginteger;
  n,i: int64;
  ar:array of int64=(9,90,900,9000,90000,900000,9000000,90000000);

begin
  i:=1;
  read(n);
  while n-ar[i-1]>=0 do
begin
  s:=s+(ar[i-1]*i);
  n:=n-ar[i-1];
  i:=i+1;
  end;
  if(n>0)then begin s:=s+(n*i);
  end;
  write(s);
end.

Можно покороче и без 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.

Примеры:
5
5

15
21

120
252

1535323
9636157

Систе́мное ПО — комплекс программ, которые обеспечивают управление компонентами компьютерной системы, такими как процессор, оперативная память, устройства ввода-вывода, сетевое оборудование, выступая как «межслойный интерфейс», с одной стороны которого аппаратура, а с другой — приложения пользователя. В отличие от прикладного программного обеспечения, системное не решает конкретные практические задачи, а лишь обеспечивает работу других программ, предоставляя им сервисные функции, абстрагирующие детали аппаратной и микропрограммной реализации вычислительной системы, управляет аппаратными ресурсами вычислительной системы.

1) 6 раз

2) 5 раз

3) 0 раз

4) 2 раза

5) 4 раза

Объяснение:

Количество повторов цикла for рассчитывается по формуле:

количество повторов цикла = максимальное значение переменной-счётчика - минимальное значение переменной-счётчика + 1

При использовании to начальное значение переменной-счётчика <= конечному значению переменной-счётчика

При использовании downto начальное значение переменной-счётчика >= конечному значению переменной-счётчика

Цикл while выполняется пока условие истинное, когда условие ложное цикл заканчивается

Цикл repeat выполняется пока условие ложное, когда условие истинное цикл заканчивается (цикл repeat выполняется минимум 1 раз, т.к. проверка условия происходит уже после выполнения тела цикла 1 раз)

1) 10 - 5 + 1 = 5 + 1 = 6 раз

2) 9 - 5 + 1 = 4 + 1 = 5 раз

3)

a = 10     b = 7

пока a < b выполнить a = a + 1

10 < 7     условие ложное, цикл не выполняется

цикл выполнится 0 раз

4)

a = 2     b = 5

Цикл:

a = a + a

прекращать когда a > b

a = 2     b = 5

a = 2 + 2 = 4

4 > 5     условие ложное, продолжаем цикл

a = 4     b = 5

a = 4 + 4 = 8

8 > 5     условие истинное, прекращаем цикл

цикл выполнится 2 раза

5)

a = 1     b = 10

пока a < b выполнить a = a * 2

a = 1     b = 10

1 < 10     условие истинное, цикл выполняется

a = 1 * 2 = 2

a = 2     b = 10

2 < 10     условие истинное, цикл выполняется

a = 2 * 2 = 4

a = 4     b = 10

4 < 10     условие истинное, цикл выполняется

a = 4 * 2 = 8

a = 8     b = 10

8 < 10     условие истинное, цикл выполняется

a = 8 * 2 = 16

a = 16     b = 10

16 < 10     условие ложное, цикл не выполняется

цикл выполнится 4 раза