JeffreyPascal/Определить, Как узнать сколько существует «счастливых» чисел длиной `2n`. Для того чтобы определить является ли число «счастливым», нужно сложить первые `n (n < 6)` цифр, в полученном числе опять сложить цифры и т. д. , пока не получится цифра. Аналогичную процедуру провести со вторыми `n` цифрами. Если полученные цифры равны, то число "счастливое".
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
Оформите это кусок в виде функции, возвращающей цифру для числа
ReadLn(n);
while n > 9 do begin
S := 0;
m := n;
while m > 0 do begin
S := S + m mod 10;
m := m div 10;
end;
n := S;
end;
WriteLn(n);
и используйте ее для сравнения пар чисел.
435
GerardLefЧтобы ответить необходимо зарегистрироваться.
