Решение во вложении.
<em><u>Ответ:</u></em>
Александр - Иркутск
Николай - Рязань
Денис - Уфа
Михаил - Саратов
Геннадий - Тюмень
Семен - Воркута
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
Надо просто перевести 12 и 17 систему счисления(двоичную,восьмиричную..)
1) Номера букв
с начала алфавита - 16,5,20,25,17
с конца алфавита - 18,29,14,9, 17
Сумма номеров для каждой буквы 34.
в - 3+31, ц -24+10. И это для любой буквы
2) игра в города
Волгодонск, Калуга