Мензер Деген не? Бир жауап: 1-Компютердин жадысы 2-Кагаз басып шыгару 3-Дыбысты реттеу 4-Экран бетиндеги жапылыктап туратын сызык

Вроде 3()- Дыбысты реттеу

Жауабы:3(Дыбысты Реттеу)Себебі мензер дегеніміз ол дыбысты реттеуге арналған программалық жиынтық

Рисунок - в прилагаемом файле.
Решение:
K0+K1+K2+K3+K4+K5+K6+K7 = 1000
K1+K2+K4+K5 = 450
K2+K3+K5+K6 = 350
K4+K5+K6+K7 = 200
K4+K5 = 80
K2+K5 = 50
K5+K6 = 30
K5 = 5
K1+K2+K3+K4+K5+K6+K7 - ?

К2 = К2+К5 - К5 = 50-5 = 45
К4 = К4+К5 - К5 = 80-5 = 75
К6 = К5+К6 - К5 = 30-5 = 25
К1 = (К1+К2+К4+К5) - (К2+К4+К5) = 450-(45+75+5) = 325
К3 = (К2+К3+К5+К6) - (К2+К5+К6) = 350-(45+5+25) = 275
К7 = (К4+К5+К6+К7) - (К4+К5+К6) = 200-(75+5+25) = 95
K0 = (К0+К1+К2+К3+К4+К5+К6+К7)-(К1+К2+К3+К4+К5+К6+К7) =
1000-(325+45+275+75+5+25+95) = 155
K1+K2+K3+K4+K5+K6+K7 = (К0+К1+К2+К3+К4+К5+К6+К7)-К0 = 
= 1000-155 = 845
ответ: 845

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

type
  tCar=record
    brand:string;
    cost:real;
  end;
 
begin
  var a:=new tCar[4];
  for var i:=0 to 3 do begin
    var b:=ReadlnString(i+1+') введите марку и стоимость в рублях:').ToWords;
    a[i].brand:=b[0]; a[i].cost:=b[1].ToReal;
    end;
 var m:=a.Select(t->t.cost).Average;
 var p:=a.Select(t->Abs(t.cost-m)).ToArray.IndexMin;
 Writeln('Выбран автомобиль марки ',a[p].brand,' стоимостью ',a[p].cost)
end.