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

Question

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

Алексей Медведев Ученик (93), закрыт 12 лет назад

Answer 1

program cyb7;
var
a, b, c, S: real;
begin
write('Vvedite dlinu 1 katet:');
readln(a);
write('Vvedite dlinu 2 katet');
readln(b);
c:= Sqrt(Sqr(a)+Sqr(b));
S:= 0.5*a*b;
writeln('Gipotenuza treugolnika = ', c);
writeln('Ploshad treugolnika ravna = ', S);
readln;
end.

Answer 2

САФАР САФАРАЛИЕВ Профи (524) 8 лет назад

низнаю

Answer 3

program cyb7;
var
a, b, c, S: real;
begin
write('Vvedite dlinu 1 katet:');
readln(a);
write('Vvedite dlinu 2 katet');
readln(b);
c:= Sqrt(Sqr(a)+Sqr(b));
S:= 0.5*a*b;
writeln('Gipotenuza treugolnika = ', c);
writeln('Ploshad treugolnika ravna = ', S);
readln;
end.

Answer 4

program cyb7;
va
a, b, c, S: real
begi
write('Vvedite dlinu 1 katet:')
readln(a)
write('Vvedite dlinu 2 katet')
readln(b)
c:= Sqrt(Sqr(a)+Sqr(b))
S:= 0.5*a*b
writeln('Gipotenuza treugolnika = ', c)
writeln('Ploshad treugolnika ravna = ', S)
readln
end