Program start;
var x,y,z:integer;
begin
readln(x,y,z);
If (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 3 | Произведение: ' , z*y*x)
else if (x mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*x)
else if (x mod 2 = 0) and (z mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , z*x)
else if (z mod 2 = 0) and (y mod 2 = 0) then writeln('Кол-во: 2 | Произведение: ' , y*z)
else if (x mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , x)
else if (y mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , y)
else if (z mod 2 = 0) then writeln('Кол-во: 1 | Произведение: ' , z)
else writeln('Все числа нечетные!');
end.
Program ToDec;
Uses crt;
var s:string;
n,l,i:integer;
function Pow(x,y:integer):integer;
begin
if y>0 then Pow:=Pow(x,y-1)*x
else Pow:=1;
end;
function ToDec(A : string) : integer;
var L : Byte;
begin
if A = '' then ToDec := 0
else begin
L := length(A);
case A[1] of
'0' : ToDec := ToDec(Copy(A, 2, L - 1));
'1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
end;
end;
end;
begin
clrscr;
write('Введите двоичное число: ');
readln(s);
writeln('Это число в десятичной системе : ', ToDec(S));
readkey;
end.
1, 4
Объяснение:
Рассмотрим путь по такому городу, который проходит по каждой улице не более чем по одному разу.
Простое наблюдение: если какая-то площадь не является началом или концом пути, то из неё должно вести чётное число дорог: по одной дороге в город нужно войти, из другой выйти, и так каждый раз.
Значит, в если в городе есть больше двух городов, из которых ведут нечетное число дорог, то его нельзя обойти, пройдя по каждой улице один раз, так что они точно понравились мистеру Фоксу.
На рисунке черным цветом указано число дорог для каждой площади. Получается, что города 1 и 4 мистеру Фоксу понравились. В городах 2 и 3 можно предложить маршрут, который проходит по каждой улице по одному разу: для 2 это, например, АБВАГВ, для 3 АБВГДЕЁЖВЗДИА - так что эти города понравились мистеру Фоксу не так сильно.