PascalABC.NET 3.4
begin
var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
var l1 := s.Length; // всего цифр
var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
if l1 = l2 then Writeln('Одинаковых цифр нет')
else Writeln('Одинаковые цифры есть')
end.
Так не пойдёт?если поставить впереди но,потом нарисовать утку,две последние буквы убрать,потом нарисовать букет цветов и тоже две буквы убрать,и в конце у
Ошибка в номере 4. Так как алфавит 7-ной системы счисления содержит только 0,1,2,3,4,5,6
Кэтрин Джонсон - она ввела
А := 3 (а=3)
b := 4 (a=3, b=4)
b := 72-a*b =72-3*4=72-12=60 (a=3, b=60)
a := b/20*a =60/20*3=3*3=9 (а=9, b=60)
ответ: 9