Получается что нет . По кругу расписываем все 9 планет Линиями отмечаем маршруты. Получаем связь Земли с Меркурием Плутоном и Венерой ВсЁ других связей нет
//PascalABC.NET 3.1 сборка 1239
function BinToDec(bin: string): integer;
begin
var n := 0;
var p := 1;
for var i := length(bin) downto 1 do
begin
n += p * StrToInt(bin[i]);
p *= 2;
end;
Result := n;
end;
begin
var s := ReadlnString('s =');
writeln(BinToDec(s));
end.
A) 1002
Так как двоичный код состоит только из 0 и 1,другие числа не могут быть
Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.