Составь алгоритм и напиши программу, которая по значению длин трех сторон будет определять, может ли существовать такой треугольник, или нет. для проверки воспользуйся теоремой пифагора (a2 + b2 = c2). microsoft visual studio 2015.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=a+b+c; var k:=Trunc(sqrt(s)); if k*k=s then Writeln('Сумма чисел - квадрат ',k) else Writeln('Сумма чисел не является квадратом целого') end.
Тестовое решение Введите три натуральных числа: 13 4 8 Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2 begin var a,b,c:integer; Write('Введите три натуральных числа: '); Read(a,b,c); var s:=power(a*b*c,1/3); if s=int(s) then Writeln('Среднее геометрическое - целое число') else Writeln('Среднее геометрическое - нецелое число') end.
Тестовое решение Введите три натуральных числа: 16 8 15 Среднее геометрическое - нецелое число
{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать. Должна работать, не работает - отпишись, отыщу паскаль и исправлю. Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}
program massiv; var x:array[1..10] of real; n, i:integer; s:real;
begin writeln('Vvedite razmer massiva'); readln(n); if (n<1) or (n>10) then writeln('Neverno zadano znacheniye razmera massiva') else begin {check: +} for i:=1 to n do begin writeln('Vvedite element ', i, 'iz ', n); readln(x[i]); end; {enter the array} s:=0; for i:=1 to n do begin s:=s+power(x[i], 3); end; writeln(s:2:2); end; readln; {stop here to read the program answer} end.
a = int(input())
b = int(input())
c = int(input())
if (c**2)=a**2+b**2:
print("треугольник существует")
else:
print("треугольник не существует")