Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.
Количество 0 и 1 не считая ведущих 0 равно количеству битов. дальше перевод в кратный единицы.
байт = 8 бит, кибибайт = 1024 байт и т.д.
Тут вообще речь идёт о способах подключения компов по локальной сети - Топология.... способов хватает, так что на твои вопросы ответить можно:
1)либо кольцо, либо шина
2)звезда
3)иерархическая (снежинка)
4)звезда
1) 91
2) 36
3) 3 (опечатка в условиях: вместо stringa надо писать string)
4) Вроде все верно, но быть может кроме а)
Номер 1
Кошка Машка, кошка Соня, собака Шарик
Номер 2
Если правильно поняла, то В)