Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!СРОЧНО!!!!!! 1)Составить программу для вычисления длины окружности и площади круга произвольного радиуса 2)Составить программу вычисления площади прямоугольного треугольника по катетам и определение гипотенузы.

Answer 1

1) а) 
begin
var r,z: real;
Writeln(r);
ReadLn(r);
z := 2*pi*r;
WriteLN(z);
end.
б)
begin
var r,z: real;
Writeln(r);
ReadLn(r);
z := 2*pi*sqr(r);
WriteLN(z);
end.
2) 
begin
var a,b,c: real;
Writeln('Катет 1');
ReadLn(a);
Writeln('Катет 2');
ReadLn(b);
c := sqr(a)+sqr(b);
WriteLN('c^2=',c,' c=',sqrt(c));
end.