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

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

9строка будет содержать 2^10 - 1 = 1023 символа, на 1023 месте бедет стоять 9, на 1022 месте будет стоять 8, а на 1021 месте будет стоять 7. ответ. 7.

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов