Составить программу проверяющую является ли треугольник прямоугольным если известны величины двух его остров углов
147
326
Ответы на вопрос:
Var a, b: integer; begin writeln('введите углы'); readln(a, b); if a+b = 90 then writeln('прямоугольный') else writeln('не прямоугольный'); end.
===== PascalABC.NET ====
= 1 =
begin
var a := ReadArrInteger(15);
var i := a.IndexMin;
Print('Минимальный элемент номер', i + 1, 'равен', a[i])
end.
= 2 =
begin
var x : array of real :=
(-17.3, 13.2, -7, -2.36, 123.4, -0.3, 12.356, 142, 0, -1);
x.Indices((v,i) -> i.IsEven and (v >= 5.1) and (v <= 32.4))
.Count.Print
end.
Популярно: Информатика
-
ропчан23.09.2022 05:12
-
Thevalk309.08.2021 01:30
-
AlanaBelkina09.04.2020 03:42
-
аовлвововоов18.04.2022 12:46
-
mariyasidorova112.12.2020 23:36
-
Математик09407.02.2020 07:37
-
arshavin109912.06.2022 23:51
-
Витаминка11111804.04.2021 02:11
-
interpol777223.05.2021 08:51
-
BlazeySpace0124.08.2020 17:53