Кодируется числом 25. Потому что буква и находится пересечении 2-й строки и 5-го столбца. Составь слоПереведи на русский язык слова под номером 3 и 5. Назови1.11 32 15 36 42 25 44 332. 1721 27 36 17 44 11 453. 11 42 34 114. 15 42 1151 2527 115. 11 31 41 11 42 11 44.ни940.5​

// PascalABC.NET 3.2, сборка 1401 от 14.03.2017
// Внимание! Если программа не работает, обновите версию!

1. Решение без проверки вводимых данных

begin
  var a,b:integer;
  Read(a,b);
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

2. Решение с контролем ввода

begin
  var a:=ReadInteger('Введите a от 1 до 30:');
  if a<1 then begin Writeln('Неверно'); Exit end;
  var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
  if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
Введите a от 1 до 30: 2
Введите b от 2 до 30: 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

amount = 0

while True:

   cost = int(input("Стоимость товара (0 - покупок больше нет): "))

   if cost == 0:

       break

   amount += cost

print("Стоимость всех покупок:", amount)

Объяснение:

amount = 0 // Сумма = 0

while True: // Пока истинно

   cost = int(input("Стоимость товара (0 - покупок больше нет): ")) // Вводим стоимость с клавиатуры

   if cost == 0: // Если стоимость = 0

       break // Выходим из цикла

   amount += cost // Добавляем к сумме стоимость

print("Стоимость всех покупок:", amount) // Выводим ответ