Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

составить программу вычисления периметра прямоугольного треугольника если известно что 2 катета а=5,в=3

Ответ оставил Гость

program mcfdncfio;

uses crt;

var a,b,c,p:integer;

begin

a:=5;

b:=3;

c:=sqrt(sqr(a)+sqr(b));

p:=a+b+c;

writeln(p);

readln;

end.

Если не работает, то для c отдельно напиши 

c:real;