Program mas; uses crt; var b: array [1..9] of integer; i: integer; begin clrscr; randomize; for i: =1 to 9 do if ((i mod 2)=0) then b(i): =0 else b(i): =random(100)-100; 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. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если комментарии не нужны - их можно удалить, на правильность работы программы это никак не повлияет
![Program mas; uses crt; var b: array [1..9] of integer; i: integer; begin clrscr; randomize; for i: =](/tpl/images/0279/5909/33cbe.jpg)
