Составить программу нахождения площади прямоугольного треугольника. ввести условия, что...

Question

Составить программу нахождения площади прямоугольного треугольника. ввести условия, что длины сторон не могут быть отрицательным числами и сделать комментарий "введите другое число".

Comments

на каком языке писать программу?

---

ясно что на Pascal

---

Тебе как? Через теорему Пифагора или просто через высоту?

---

Там не упоминается, как-то просто надо сделать и все. Пусть будет через теорему.

Answer 1

Program plochad;var a,c:real;beginwriteln ('Введи длину стороны a=');readln (a);if a < 0 then writeln ('Число не может быть отрицательным! Введите другое число.');writeln ('Введи длину основания c=');readln (c);if c < 0 then writeln ('Число не может быть отрицательным! Введите другое число.');c:= a*c/2;if c<0 then write ('Невозможно решить') else writeln ('S=',c);end.