Если не разделять понятия неотрицательных и положительных, то этот код: Var A,B,C,P,O:integer; Begin P:=0; O:=0; WriteLn('Введи три числа'); ReadLn(A,B,C); if A>=0 then P:=P+1 else O:=O+1; if B>=0 then P:=P+1 else O:=O+1; if C>=0 then P:=P+1 else O:=O+1; WriteLn('Положительных чисел ',P); WriteLn('Отрицательных чисел ',O) End.
Если разделять, то этот: Var A,B,C,P,O,N:integer; Begin P:=0; O:=0; N:=0; WriteLn('Введи три числа'); ReadLn(A,B,C); if A=0 then N:=N+1 else if A>0 then P:=P+1 else O:=O+1;
if B=0 then N:=N+1 else if B>0 then P:=P+1 else O:=O+1;
if C=0 then N:=N+1 else if C>0 then P:=P+1 else O:=O+1; WriteLn('Положительных чисел ',P); WriteLn('Отрицательных чисел ',O); WriteLn('Нулей ',N) End.
Для перевода в двоичную систему делим число на 2 и записываем остатки от деления 285/2=142 остаток 1 142/2=71 остаток 0 71/2=35 остаток 1 35/2=17 остаток 1 17/2=8 остаток 1 8/2=4 остаток 0 4/2=2 остаток 0 2/2=1 остаток 0 1/2=0 остаток 1 записываем остатки снизу вверх
285₁₀=100011101₂
для перевода десятичного числа в восьмеричную систему счисления проделываем те же операции, только делим на 8 285/8=35 остаток 5 35/8=4 остаток 3 4/8=0 остаток 4 записываем ответ снизу вверх 285₁₀=345₈ для перевода десятичного числа в шестнадцатеричную систему делим соответственно на 16 285/16=17 остаток 13, что в шестнадцатеричной системе соответствует букве D 17/16=1 остаток 1 1/16=0 остаток 1 ответ 285₁₀= 11D₁₆
Var
A,B,C,P,O:integer;
Begin
P:=0;
O:=0;
WriteLn('Введи три числа');
ReadLn(A,B,C);
if A>=0 then P:=P+1
else O:=O+1;
if B>=0 then P:=P+1
else O:=O+1;
if C>=0 then P:=P+1
else O:=O+1;
WriteLn('Положительных чисел ',P);
WriteLn('Отрицательных чисел ',O)
End.
Если разделять, то этот:
Var A,B,C,P,O,N:integer;
Begin
P:=0;
O:=0;
N:=0;
WriteLn('Введи три числа');
ReadLn(A,B,C);
if A=0 then N:=N+1
else
if A>0 then P:=P+1
else O:=O+1;
if B=0 then N:=N+1
else
if B>0 then P:=P+1
else O:=O+1;
if C=0 then N:=N+1
else
if C>0 then P:=P+1
else O:=O+1;
WriteLn('Положительных чисел ',P);
WriteLn('Отрицательных чисел ',O);
WriteLn('Нулей ',N)
End.