Даны три целых числа. найти количество положительных и отрицательных в исходном наборе

Если не разделять понятия неотрицательных и положительных, то этот код: 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.

1) чтобы перевести из 2-ой системы в 10-ную нужно каждую цифру умножить на основание системы счисления в степени в какой стоит цифра:

111101(2) = 1 * 2^5 + 1 * 2^4 + 1 * 2^3 + 1 * 2 ^ 2 + 0 * 2 ^ 1 + 1 * 2^0 =

= 32 + 16 + 8 + 4 + 0 + 1 = 61 (10)

2) чтобы перевести число из 10-ой системы в 2-ную нудно делить исходной число на 2 до тех пор пока исходной число не станет меньше 2, остатки от деления записанные в обратном порядке будут результатом

65 : 2 = 32(ост. 1)

32 : 2 = 16(ост. 0)

16 : 2 = 8(ост. 0)

8 : 2 = 4(ост. 0)

4 : 2 = 2 (ост. 0)

2 : 2 = 1 (ост. 0)

65(10) = 1000001(2)

 

1. количество ядер процессора  2. частота процессора и частота системной шины (fsb) процессора  3. объем и количество кэш-памяти процессора (cpu)4. совпадение частоты системной шины cpu и материнской платы5. частота оперативной памяти (ram) и частота шины памяти материнской платы  6. объем оперативной памяти  7. используемый на материнской плате чипсет (intel, via, sis, nvidia, ati/amd)8. используемая графическая подсистема – встроенная в материнскую плату или дискретная  9. тип интерфейса винчестера (hdd) – параллельный ide или последовательные sata и sata-210. кэш винчестера

и это еще не все, можно продолжать.