Название документа
строка меню
Строка формул
Рабочее поле
Бегунки
Строка состояния
Заголовки столбцов
Заголовка строк
Листы
Адрес ячейки
Общие элементы: Название документа, Строка меню, Строка состояния, Рабочее поле, бегунки
Сайт с двумя страницами и ярким фоном... Да
(-(y+z)*x)*-(y+z)=F
X Y Z Y+Z 1.-(Y+Z) 1.*X. 1.*(1.*X)
0 0 0. 0. 1. 0. 0
0 0 1. 1. 0. 0. 0
0 1 0. 1. 0. 0. 0
0 1 1. 1. 0. 0. 0
1 0 0. 0. 1. 1. 1. - Ответ
1 0 1. 1. 0. 0. 0
1 1 0. 1. 0. 0. 0
1 1 1. 1. 0. 0. 0
ответ х1 у0 z0
//Pascal ABC.NET v3.1 сборка 1219
Var
n,k1,k2,i:integer;
r:real;
begin
readln(n);
for i:=1 to n do
begin
readln(r);
if r>0 then k1:=k1+1;
if r<0 then k2:=k2+1;
end;
writeln('Положительные:',k1);
writeln('Отрицательные:',k2);
end.
Пример ввода:
4
-1.1
2
3
0
Пример вывода:
Положительные:2
Отрицательные:1
Тут все просто.
40/2 остаток 0, 20 / 2 остаток 0, 10 / 2 остаток 0, 5/2 остаток 1, затем 4 / 2 остаток 0, и 2/2 остаток 1
Итого 40 в двоичной = 101000
А 25 по аналогии будет 11001