найти ошибку в коде. Delphi Выводит неправильный ответ, который при любых округлениях обнуляется

285

434

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

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

КаземираМалевична

Информатика

4,4(17 оценок)

Var x: byte; razryad, chastnoe: integer; begin x : = random(200) - 100; razryad : = 0; repeat razryad : = razryad + 1; chastnoe : = x div 10; until (chastnoe < > 0); if x < 0 then write("число: ",x, "отрицательное, количество разрядов: ", razryad) else if x > 0 then write("число: ",x, "положительное, количество разрядов: ", razryad) else write("число: ",x ," равно нулю, количество разрядов: ", razryad); writeln; end.