Информатика, 9 класс. паскаль. : даны катеты прямоугольного треугольника. найдите длину окружности, описанной около треугольника? заранее .

Program dlina; uses crt; var a,b,c,l: real; begin clrscr; writeln('введите длины катетов'); readln(a,b); c: =sqrt(a*a+b*b); l: =3.14*c; writeln('длина описанной окружности с=',l); readln; readkey; end.

A,b,c - стороны прямоугольного треугольника; d - радиус описанной окружности около прям. треуг. e -  длинна окружности описанной около прямоуг. треугольника; var a,b,c,d,e: real; begin writeln ('введите (через пробел) 2 катета прямоугольного треугольника: '); readln (a,b); //вводим 2 катета c: =sqrt((a*a)+(b*b)); //находим 3 сторону (гипотенузу) d: =0.5*c; //радиус описанной окружности около прям. треуг e: =2*3.14*d; //теперь находим длину окружности описанной около прям. треуг. writeln ('длина окружности описанной около прямоугольного треугольника = ',e); end.p.s. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если  комментарии  не нужны - их можно удалить, на правильность работы программы это никак не повлияет

4. var a: real; begin write('введите количество мегабайт='); read(a); writeln('количество килобайт=',a*1024); writeln('количество байт=',a*1024*1024); writeln('количество бит=',a*1024*1024*8); end. 5. var a,b,c,p,s: real; begin write('введите сторону a='); read(a); write('введите сторону b='); read(b); write('введите сторону c='); read(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('s=',s: 5: 2); end. 6. var a: integer; begin write('введите количество суток='); read(a); writeln(24*a,' ','часов'); writeln(60*24*a,' ','минут'); writeln(60*60*24*a,' ','секунд'); end.

1)

var a,b,c,d,s,p: real; begincls; writeln('введите стороны треугольника: '); read(a,b,c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('площадь треугольника s=',s); end.

2)

var a,b,c,d,s,v: real; begincls; write('введите 3 ребра='); read(a,b,c); v: =a*b*c; s: =2*(a*b+b*c+a*c); d: =(a+b+c)*2; writeln('прямоугольный параллелепипед: '); writeln('обьём: ',v); writeln('площадь: ',s); writeln('сумма рёбер: ',d); end.

3)

var a,b,c,d,p: real; begincls; writeln('введите сторону и 2 угла ромба'); read(a,b,c); if b> c thenp: =a*sqrt(2+2*cos(b))elsed: =a*sqrt(2+2*cos(c)); writeln('большая диагональ ромба d=',p); writeln('меньшая диагональ ромба d=',d); end.