1)используя справочник записать значение процедур delete и insert . 2)написать программу позволяющею разделить на отдельные цифры число любой длины

1) procedure  insert(source: string;   var  s: string; index: integer);                   вставляет подстроку source в строку s с позиции indexprocedure  delete(var  s: string; index, count: integer);                   удаляет из строки s count символов с позиции index2)var s: string; i,n,code: integer; beginwrite('введите длинное число: '); readln(s); for i: =1 to length(s) do  begin  val(s[i],n,code);   if code=0 then writeln(n);   end; end.пример: введите длинное число: 34568102853456810285если не требуется выполнять арифметических действий с цифрами, то можно так: var s: string; i: integer; beginwrite('введите длинное число: '); readln(s); for i: =1 to length(s) do writeln(s[i]); end.

Этот язык назван в честь Ады Лавлейс

Строишь по таблице граф и перебираешь все пути.
Чтобы не потеряться, можно делать по алфавиту.

A→B→C→E = 2 + 1 + 2 = 5 ← кратчайший
A→C→E = 5 + 2 = 7
A→D→C→E = 1 + 3 + 2 = 6

621 в 8 системе счисления это 1155 единиц 2 . Тоже самое и для 622, две единицы (1156)