Вычислить гипотенузу по известным катетам
А что тут сложного то? теорема пифагора для чего нужна? ab=sqrt(sqr(bc)+sqr(ac)) var a,b,c:integer; begin readln(a,b); c:=sqrt(sqr(a)+sqr(b)); write(c); end.
надо в вести радиус вычислить длину окружности
по формуле L=2П*R
var c,p,r :real; readln(r); p:=3.14 begin c:=2*p*r; write(c); end.