89->24
1)89+1=90 (2)
2)90/2=45 (1)
3)45+1=46 (2)
4)46/2=23 (1)
5)23+1=24 (2)
Ответ: 21212
Ответ:
Procedure dec2oct(n: longint); { перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i: integer; begin s : = ''; while n > 0 do begin s : = alpha[(n mod 8) + 1] + s; n : = n div 8 end; for i: =length(s) to 9 do s: ='0'+s; write(s) end; { использование } var x: longint; begin write('введите десятичное число: '); read(x); write('в восьмеричной системе счисления: '); dec2oct(x); writeln end. тестовое решение: введите десятичное число: 1234567 в восьмеричной системе счисления: 0004553207
Объяснение:
Var A,i : Longint;
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.
Подробное описание внутри файла. Программа на Паскале
4-м кратны: 4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68,72,76,80,84,88,92,96,100