Известно, что X = 250_4 + 45_5 + 15_2. Чему равно число X в десятичной системе счисления?
Чему равно х в десятичной системе счисления, если х = 11010_3 + 11_8 + 11_4 + 555_8?
Вычислите значение суммы 101110_2 + 75_8 + 151_6 в десятичной системе счисления.
Известно, что X = 11_4 + 3_5 + 101_2. Чему равно число X в десятичной системе счисления?
Чему равно х в десятичной системе счисления, если х = 222_3 + 1111_2 + 10_5?
Чему равно х в десятичной системе счисления, если х = 12_3 + 1111_3+110_2 + 13_5?
Чему равно х в десятичной системе счисления, если х = 12_4 +112_3 + 10_8 + 12_4?
Известно, что X = 10_4 + 14_5 + 11_2. Чему равно число X в десятичной системе счисления?
Известно, что X = 12_4 + 40_5 + 1111_2. Чему равно число X в десятичной системе счисления?
Известно, что X = 100_4 + 12_2 + 1111_2. Чему равно число X в десятичной системе счисления?

Непонятно, что за "надписи".

Предположим, что

1. "бабушка попросила"

2. "взяла лукошко"

3. "подошла к кусту"

4. "сорвала ягоду"

5. "сварили варенье"

тогда логика задачи будет следующей

бабушка попросила

Если Маша согласилась тогда

      взяла лукошко

      подошла к кусту

      Если куст с ягодами Тогда

          Пока (на кусте есть ягоды) и (лукошко пустое) Цикл

                  сорвала ягоду

          КонецЦикла

      КонецЕсли

      сварили варенье

КонецЕсли

В принципе, если несколько кустов, нужен цикл обхода по кустам пока не наполнится лукошко.

Объявляем функцию gcd, принимающую два целочисленных параметра и возвращающую их наибольший общий делитель. Здесь это вычисляется при алгоритма Евклида.

Затем для удобства определяем ещё одну функцию gcd3, которая принимает уже три аргумента и, используя указанную в условии формулу и описанную выше функцию gcd, вычисляет НОД от трёх чисел.

В основной части программы просто три числа считываются с клавиатуры и выводится ответ.

Код (PascalABC.NET v3.6.2316):

function gcd(a, b: integer): integer;

begin

 while a * b <> 0 do

   (a, b) := (b, a mod b);

 Result := a + b

end;

function gcd3(a, b, c: integer) := gcd(gcd(a, b), c);

begin

 var (a, b, c) := ReadInteger3;

 print(gcd3(a, b, c))

end.

Пример ввода:

10 40 20

Пример вывода:

10