Умные люди, отзовитесь! Задача: Для обозначения цифр числа используются буквы.При этом олинаковые цифры обощначены рдной буквой.Дана сумма лесятичных закодированных натуральных чисел: СИНИЦА+СИНИЦА=ПТИЧКИ.Найти все возмодные варианты чисел. Требуется в ответе: 1)указать количество выражений, которые являются решением; 2)перечислить все возможные выражения, которые являются решением .
// Внимание! Если программа не работает, обновите версию!
begin
var (s,x):=(ReadlnString('Введите число, можно нецелое:'),0.0);
if TryStrToFloat(s,x) then
if s.Where(c-> c in ['0'..'9']).Select(c->c.ToDigit).Sum mod 10=5
then Writeln('Сумма цифр заканчивается на 5')
else Writeln('Сумма цифр не заканчивается на 5')
else Writeln('Неверное представление числа')
end.
Примеры
Введите число, можно нецелое: -3532175
Сумма цифр не заканчивается на 5
Введите число, можно нецелое: 0.02432413
Сумма цифр не заканчивается на 5
Введите число, можно нецелое: -13.05360214
Сумма цифр заканчивается на 5
Введите число, можно нецелое: 1.23007e-31
Сумма цифр не заканчивается на 5