Написать программу в pascal, с оператором while и do найти сумму всех n-значных чисел, если 1 ≤ n ≤ 4

Question

Информатика: Написать программу в pascal, с оператором while и do найти сумму всех n-значных чисел, если 1 ≤ n ≤ 4

Yaniks02 · Answer

Var  i, sum : integer;begin  sum := 0;  for i := 1 to 9999 do    sum := sum + i;  write( Результат:  , sum);end....