ваня ро
Профи
(501)
6 лет назад
begin
var s := ReadString('n =');
s.Aggregate(0, (Sum, x)-> Sum + x.toDigit).Println;
var i := 2;
while (i <= s.Length) and (s[i] <> s[i - 1]) do i += 1;
Print(i > s.Length ? 'No' : 'Yes')
end.
Elisey Pankov
Профи
(688)
6 лет назад
первое можно в цикле while (cin) посимвольно вводить, потом через таблицу аски преобразовывать к числовому (вроде это просто -47, но точно не помню). А второе так же посимвольно вводишь и сравниваешь нынешнее и предыдущее
Пример:
Введите натуральное число:
12345
Сумма цифр 15.
«B»: Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом.
Пример:
Введите натуральное число:
12342
Нет.
Пример:
Введите натуральное число:
12245
Да.