Напишите программу, которая о трех числа решает могут ли они быть сторонами прямоугольного треугольника. напишите программу так чтобы любое число могло быть гипотенузой. паскаль
PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ReadSeqInteger('Введите стороны прямоугольника',3).Sorted.ToArray; if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Могут') else Writeln('Не могут') end.
// PascalABC.Net 3.0, сборка 1052 const nn=100; var a:array[1..nn] of integer; p,s:longint; i,n:byte; begin Write('Введите количество элементов в массиве: '); Read(n); Writeln('Вводите целочисленные элементы массива через пробел'); s:=0; p:=1; for i:=1 to n do begin Read(a[i]); if i mod 2 = 0 then p:=p*a[i]; s:=s+a[i] end; Writeln('Произведение элементов с четными номерами: ',p); Writeln('Среднее арифметическое элементов: ',s/n) end.
Тестовое решение: Введите количество элементов в массиве: 10 Вводите целочисленные элементы массива через пробел -4 6 11 8 12 21 7 13 9 -15 Произведение элементов с четными номерами: -196560 Среднее арифметическое элементов: 6.8
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
type R=sequence of integer;
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; var P:R->BigInteger:=t->t.Aggregate(BigInteger(1),(p,q)->p*q); if P(a.Where(t->t.IsEven))>P(a.Where(t->t.IsOdd)) then Writeln('Номер максимального элемента: ',a.IndexMax+1) else Writeln('Номер минимального элемента: ',a.IndexMin+1) end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqInteger('Введите стороны прямоугольника',3).Sorted.ToArray;
if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Могут')
else Writeln('Не могут')
end.