<span>1 пиксель - одна точка на экране. В битах кодируется в зависимости от кол-ва цветов - если изображение черно белое-1бит, 4 цвета-2бита, 265 цветов-8 бит</span>
А - топология "шина"
В - смешанная("кольцо" и "шина")
С - топология "звезда"
D - топология "кольцо"
Е - топология "шина"
F - смешанная ("звезда" и "шина")
G - смешанная("кольцо", "звезда" и "шина")
Program kek;
Var a, c:integer;
Begin
c:=0;
a:=1;
While a<>0 do begin
Writeln('Вводите целые числа. Когда закончите - введите "0"');
Readln(a);
If (a>0) and (a mod 10 = 1) then do begin
c:=c+a;
end;
End;
Writeln(c);
End.
Вроде так. Нет возможности проверить.
var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
Может из двоичной в восьмиричную? если да, то так:
11011011=333
11000001=301
1101011=153
11010001=321