Смотри вложение. там еще карта карно есть, если надо
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqReal('Введите длины сторон:',3).OrderBy(t->t).ToArray;
if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,0,100); a.Println;
a.Average.Println
end.
<u>Пример</u>
65 11 46 1 81 74 17 45 5 79 92 10 39 41 42
43.2
В первых двух корзинах на 27 меньше, чем во всех трёх => в 3 корзине 27 мячей
1) 90 - 27 - 34 = 29 (м)
Ответ: в первой корзине 29 мячей.
<em>Очень извиняюсь, если неправильно, сплю на ходу х)</em>