Вгороде живут 5 друзей: иванов,петров,сидоров,гришин,алексеев.проффессии у них разные- один из них- - id16317220220614 от alizhanayanaoxi717 14.06.2022 23:29

Question

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

alizhanayanaoxi717 · Accepted Answer

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 procedure GetProdNeg(a:array of integer; var p:real); // произведение отрицательных элементов begin   p:=a.Where(x- x 0).Aggregate(1.0,(p,e)- p*e) end; function IsPrime(n:integer):boolean:=   Range(2,Round(sqrt(n))).All(i- n mod i 0); procedure ArrPrime(n:integer; var a:array of integer); // массив простых чисел не больших n begin   a:=Range(2,n).Where(i- IsPrime(i)).ToArray end; begin   var n:=ReadInteger( n= );   var a:=ArrRandom(n,-50,50); a.Println;...

MOGZ ответил