Аааа, почему никто не знает...или просто ленивые, сижу над этим заданием и ничего не понимаю)
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(10,0,23); a.Println;
var t:=a.Where(t->t<=20).Where(t->t>18).Count;
Println('t=',t);
end.
Пример:
8 14 20 19 16 6 20 0 2 2
t= 3
1 - О
2 - орел & решка
3 - Р
1 + 2 = 260
2 + 3 = 350
1 + 2 + 3 = 520
1 + 2 + 3 = 260 + 3 = 520
3 = 520 - 260 = 260
2 + 3 = 2 + 260= 350
2 = 350 - 260
2 = 90
ответ: 90
1) внешний вид
2) размах крыльев, тип оперения
3) внешний вид
Иван: французский, китайский. Антон: немецкий, японский. Пётр: шведский, греческий.
Поясняю на сколько это возможно. 2) Антон не знает шведский и французский. 3)Пётр (он самый высокий - пункт 1) не знает французский. Значит, французский - Иван. 4) Пётр не знает яп. и кит. 5) Антон не знает кит. и греч.
4),5) => китайский - Иван.
С Иваном разобрались...
2),5) => Антон не знает греческий и шведский (фр. и кит. уже у Ивана). Значит, их знает Пётр. Антону, в таком случае, достаются немецкий и японский. Надеюсь, понятно.