Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  d
Language: PASCAL
Code:
program pascal;
var a,b,c,S,P:real;
begin
writeln( ' введите катет a: ');
readln(a);
writeln( ' введите катет b: ');
readln(b);
c:=sqrt(sqr(a)+sqr(b));
P:=a+b+c;
S:=(a*b)/2;
writeln( ' Периметр равен = ',P);
writeln( ' Площадь равна = ',S);

end.

          
Comments: