Переведите числа в нужную систему счисления 5942,9017(из10в2)

253

368

Посмотреть ответы 2

Ответы на вопрос:

VladShevshenko228

Информатика

4,8(37 оценок)

1011100110110.11100110110101011100111110101010110011011001111 010однако большое число вышло.

andreymikilov

Информатика

4,7(70 оценок)

Ошибки две: 1) не забывайте обнулять переменную k. у вас она не обнулялась, и так как каждый раз прибавлялось что-то, то максимум достигался на последнем числе. 2) нужно не количество, а сумма делителей, поэтому к k надо прибавлять не 1, а i. пример исправленной программы: var max, i, j, k, a, b, z: integer; begin max : = 0; readln(a, b); for i : = a to b do begin k : = 0; for j : = 1 to i do if (i mod j) = 0 then k : = k + j; if k > max then begin max : = k; z : = i; end; end; writeln(z); end.