Информатика

Даны катеты прямоугольного треугольника.Найдите гепотенузу и площадь


<< Предыдущий вопрос Следующий вопрос >>

Паскаль


 


uses crt;
var


  a,b,c,s:real;
begin
  read(a,b);
  c:=sqrt(sqr(a)+sqr(b));
  writeln('c=',c);
  s:=(a*b)/2;
  writeln('s=',s);
end.

k1 - один катет
k2 - другой катет
g - гипотенуза
S - площадь треугольника
Язык програмирования: Паскаль.

var
k1, k2, g, S : real;
begin
readln (k1);
readln (k2);
g := SQRT(SQR(k1) + SQR(k2));
writeln(g);
S := (k1 * k2) / 2 ;
writeln(S)
end.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы
X