Информация представлена в 0 и1,
о-ложь
1- истина (для примера )
любой файл можно записать в последовательности нулей и единиц
компьютер работает с непривычной для нас информацией,а с килобайтами,мегабайтами,гигабайтами...
бит принимает всего 2 значения,1 и 0- истина/ложь
в одном байте -8 бит,,а каждая последующая единица больше предыдущей в 1024 раза
раз 6 белых то ищем черные
<span>16-6=10 - чёрных</span>
Program mm;
var a: array [1..10] of real; i: integer; s: real;
begin
for i:=1 to 10 do begin
Writeln("Введите элемент номер ",i); read(a[i]);
end;
for i:=1 to 10 do
if (a[i]>=2) and (a[i]<=5) then s:=s+a[i];
Writeln(s); readln;
end.
Если что, пиши в личку.
Квадрат зеленый
Круг синий
Ромб белый
Треугольник красный