На каникулах мистер фокс побывал в нескольких небольших европейских городах. он помнит, что наиболее понравившиеся города ему удалось обойти полностью, пройдя по каждой улице ровно два раза, но не удалось обойти полностью, пройдя по каждой улице один раз. а те города, которые понравились меньше, удалось обойти и пройдя по каждой улице ровно один раз, и пройдя по улице ровно два раза. на рисунках изображены схемы городов, в которых побывал мистер фокс. выберите схемы всех понравившийся ему городов. обойти полностью означает побывать на всех улицах и площадях города. на схемах точками обозначены площади, линиями - улицы.

1, 4

Объяснение:

Рассмотрим путь по такому городу, который проходит по каждой улице не более чем по одному разу.

Простое наблюдение: если какая-то площадь не является началом или концом пути, то из неё должно вести чётное число дорог: по одной дороге в город нужно войти, из другой выйти, и так каждый раз.

Значит, в если в городе есть больше двух городов, из которых ведут нечетное число дорог, то его нельзя обойти, пройдя по каждой улице один раз, так что они точно понравились мистеру Фоксу.

На рисунке черным цветом указано число дорог для каждой площади. Получается, что города 1 и 4 мистеру Фоксу понравились. В городах 2 и 3 можно предложить маршрут, который проходит по каждой улице по одному разу: для 2 это, например, АБВАГВ, для 3 АБВГДЕЁЖВЗДИА - так что эти города понравились мистеру Фоксу не так сильно.

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.