Перевести: 0, 1875 (из 10-ой в 8-ую систему счисления

Для перевода дробной части   числа последовательно умножаем дробную часть на основание 8. 0.1875*8 = 1.5 (целая часть  1) 0.5*8 = 4 (целая часть  4) 0*8 = 0 (целая часть  0) 0*8 = 0 (целая часть  0 ) получаем:   0.1875(в десятичной)  = 1400(в восьмеричной)

Var n, a, pos, neg, null, i: integer;   begin   pos : = 0;   neg : = 0;   null : = 0;   writeln('введите n: ');   readln(n);   writeln('введите n целых чисел: ');   for i : = 1 to n do     begin     read(a);     if(a < 0) then neg : = neg + 1;     if(a > 0) then pos : = pos + 1;     if(a = 0) then null : = null + 1;   end;   writeln('положительных чисел: ', pos);   writeln('отрицательных чисел: ', neg);   writeln('нулей: ', null); end. т естовые решения: 1) ввод 8 1 2 0 3 0 -5 -4 2 вывод положительных чисел: 4 отрицательных чисел: 2 нулей: 2 2) ввод 6 0 0 3 -5 0 22 вывод положительных чисел: 2 отрицательных чисел: 1 нулей: 3

Подробных требований нет, поэтому один из простых вариантов такой: < form> число: < input type="text" size="10" name=number> < p> < input type="button" value="проверить"          onclick="if (number.value % 2)           ans.value=number.value+'-нечетное';           else ans.value=number.value+'-четное'""> < input type="text" size="10" name=ans> < p> < input type="reset" value="очистить"> < /form> текст набрать в блокноте и сохранить с расширением html. затем открыть в браузере.