В прямоугольном треугольнике должна выполняться теорема Пифагора. Найдем самую длинную строну и проверим, является ли квадрат ее длины суммой квадратов длин двух других сторон. Для того, чтобы избежать ошибок округления примем, что все длины - натуральные числа.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3('Введите через пробел или Enter стороны:');
if a>c then Swap(a,c);
if b>c then Swap(b,c);
if c*c=a*a+b*b then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.
<u>Пример</u>
Введите через пробел или Enter стороны: 6 8 10
Треугольник прямоугольный
Кодs могут быть разные, если кодом является номер символа в алфавите с "Ё" - ответ будет 6 4 16 18 19 6 18 5 32 12
Python 3.7.0
import random
pr = 1
for i in range(5):
x = round(random.uniform(1, 1.3), 2)
pr *= x
print(x)
srgeom = round(pr ** (1 / 5), 2)
print("Среднее геометрическое чисел: " + str(srgeom))
Вот программный код на паскале:
<span>var
m,n: integer;
begin
read(m,n);
if m > n then
begin
writeln('1 paket tyajelee');
writeln('Ves tyajologo bolee paketa = ',m);
end ;</span>
<span>if m < n
then
begin
writeln('2 paket tyajelee');
writeln('Ves tyajologo bolee paketa = ',n);
end;
readln;
end.</span>
var
x1,y1,x2,y2:integer;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
if (x1+y1+x2+y2) mod 2 = 0 then
writeln('ONI IMEUT ODINAKOVIJ ZVET');
else
writeln('ONI IMEUT RAZNIJ ZVET');
end.
