Кто знает как решить 1 уровень

Задание 1:
Развернутая форма числа - представление числа в виде суммы каждого разряда числа.

4563 = 4 × 10^3 + 5 × 10^2 + 6 × 10^1 + 3 × 10^0

100101 = 1 × 2^5 + 0 ×2^4 + 0 ×2^3 + 1 ×2^2 + 0 ×2^1 + 1 ×2^0

AC6 = 10 ×16^2 + 12 ×16^1 + 6 × 16^0

Задание 2:

1001010, 112, 4А

Задание 3:

1)

11001101011+1110000101=100111110000
101011-10011=11000
1011х101=101100+1011=110111

2)

+564
  234

1020

Получилось: 564+234 = 1020

-652
 465

 165

Получилось: 652-465 = 165

3)

+DF45
 128A

F1CF

Получилось: DF45+128A = F1CF

-92D4
 11AE

8126

Получилось: 92D4-11AE = 8126

//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer; 

begin

  write('Введите два числа: ');

  readln(a, b);

  if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

  until (a mod с = 0) and (b mod с = 0);

  write('NOD = ', с)

end.

 

//2. Алгоритм с вычитанием (цикл while)

var  a, b: integer;

begin

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  while a <> b do

    if a > b then

      a := a - b

    else

      b := b - a;

  writeln('NOD = ', a);

end.