Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -
Hi mister,
-------
Скрин #1
-------
Пользуясь моим скрином, понимаем, что такие буквы как Ж и К имеют 2 пути, а другие 3 пути.
Рассмотрим буквы Ж и К на рисунке это 2 и 7, осталось узнать какая какой принадлежит.
Начнем с самого простого, единственная буква, которая относится к обоим дорогам (Ж и К) это буква Д.
Значит буква Д должна иметь пусть с Ж, К и еще буквой В.
Исходя из таблицы, понимаем что #3 это буква Д, а #4 это буква В.
---------
Скрин #2
---------
Рассмотрим ситуацию букв К, В, Е. отсюда также легко сможем найти Ж и Б
Исходя из скрина мы видим что для буквы Е мы нашли подходящие буквы, В(#4) и К(#2), понимаем что буква Е = #6, отсюда понимаем что Б(#1) и что Ж(#7)
---------
Скрин #3
---------
Находим оставшиеся:
А - #5
Г - #8
ответ по задаче: 14 (#1 и #4 без пробелов)
Источник: Мозг.
