Цитата CreeD_AssassiN (
)
program Num2;
uses crt;
var a,b,g,s:real;
begin
writeln ('Введи длину катетов');
readln (a,b);
s:=(a*b)/2;
g:=sqr(a)*sqr(b);
writeln ('Площадь треугольника = ',s);
writeln ('Длина гипотенузы = ',g);
end.
С какого черта произведение корней катетов равна гипотенузе? OH SHI--
Зачем ctr ?
И можно покороче(Кол-во скобок нарочно перевышено :)
var a,b : Integer;//Катеты
begin
writeln('Введите катеты'); //-те не помешает, мы же вежливые :)
readln(a,b);
writeln('Площадь прямоугольного треугольника равна ' ,(floattostr((a*b)/2)));
writeln('А гипотенуза равна ' ,(floattostr(sqrt(a*a+b*b)))); // Знаю, умножать немного неверно, ну и пусть :)
// The End
end.