Var
A,N:integer;
Begin
Write('N = ');ReadLn(N);
For A:= 10 to 99 do
if A mod 10 + A div 10 = N then Write(A,' ')
End.
Пример работы программы:
N = 9
18 27 36 45 54 63 72 81 90
2017 делим с остатком на 3 до тех пор пока неполное частное не станет меньше 3. В ответ на первое место записываем последнее неполное частное и приписываем к нему все остатки, слева направо, начиная с последнего. Получим 2202201 в троичной системе счисления
<span>writeln(a:6:2,' 'b:6:2,' ',с:6:2);</span>
Пусть х - искомое основание системы счисления
5х+3х+3=х²+х+3
х²-7х=0
х(х-7)=0
х=0 или х=7
основание системы счисления не может быть равным 0, следовательно х= 7
101₇ = 49+1=50 лет
50₇=35 дочерей
33₇ = 21+3=24 сына
113₇=49+7+3=59 детей