Ответ: 6.
1) Аб
2) Бс
3) Сд
4) Ас
5) Ад
6) Бд
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqInteger('Введите стороны прямоугольника',3).Sorted.ToArray;
if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Могут')
else Writeln('Не могут')
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -50, 99);
a.Println;
var (s, p) := (0, BigInteger.One);
for var i := 0 to a.High do
begin
s += a[i];
p *= a[i]
end;
Println('Сумма', s, ' произведение', p,
' среднее', s / a.Length)
end.
123456-654321 я думаю так
<span>1
2
3
4
5
6
7
8
<span>#include<iostream>
int main()
{
for (int i = 60; i >= 10; i -= 2)
std::cout << i << <span>"\n"</span>;
return 0;
<span>}</span></span></span>