Девочка раздела трем животным пять котлет ; каждой кошке -по одной котлеты, каждой собаке -по две котлеты.сколько - id524327220200122 от 111759 22.01.2020 05:32

Question

Информатика: Девочка раздела трем животным пять котлет ; каждой кошке -по одной котлеты, каждой собаке -по две котлеты.сколько было кошек и сколько было собак?

111759 · Accepted Answer

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList;
if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля')
else
    if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной')
    else begin
      var d3:=L.Where(x->x.IsEven).Min;
      L.RemoveAt(L.FindIndex(x->x=d3));
      var s:=L.OrderBy(x->x);
      Writeln(s.Last,s.First,d3)
      end
end.

Примеры:
Введите через пробел три цифры 2 0 5
520

Введите через пробел три цифры 0 5 0
500

Введите через пробел три цифры 3 9 5
Хотя бы одна цифра должна быть четной

Девочка раздела трем животным пять котлет ; каждой кошке -по одной котлеты, каждой собаке -по две котлеты.сколько было кошек и сколько было собак?

MOGZ ответил