<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
if n.IsOdd then Write('Нечетное ')
else Write('Четное ');
if n>999 then Write('четырех')
else
if n>99 then Write('трех')
else
if n>2 then Write('двух')
else Write('одно');
Writeln('значное число')
end.
Сложно понять, что нужно было сделать автору программы, но в любом случае сделано криво. Ввод и вывод организованы так, что выводимые значения сливаются с вводимыми, образуя непонятные комбинации.
Программа запрашивает некоторое значение "В", на превышение которого потом она реагирует один раз. Затем запрашивается количество чисел, которые надо ввести. Эти числа вводятся в цикле (почему это цикл while - непонятно, обычно подобные вещи делают в цикле for) и тут же выводится, т.е. программа повторяет введенное число. В случае, когда введенное число первый раз превышает "В", перед этим числом выводится значение "В". Именно для этого использована логическая переменная bol: после возникшего превышения она принимает значение false и отключает дальнейшую проверку на превышение.
1. Включаем калькулятор
2. Нажимаем "Вид" -> "Программист"
3. Нажимаем "Hex" -> пишем "FE" -> нажимаем "Dec"
Получается 254!
1100011101 - 797
10010 - 18
797:18=44,2(7)
1) 3,125 КБ = 24576 б (килобайт в биты)
2) 2,525 МБ = 2097152 Б (мегабайт в байты)
3) 4,75 ГБ = <span>4194304 КБ</span> (гигабайт в килобайты)
Знаки расставь сам, а вообще Марина Права, перепроверь где биты (б), а где байты (Б)