Филя2 года назад
Вот пример кода на Pascal, который вычисляет площадь прямоугольного треугольника по его катетам a и b:
Код:
program SquareOfRightTriangle;
var
a, b, s: real;
begin
// Вводим значения катетов
write('Введите значение катета a: ');
readln(a);
write('Введите значение катета b: ');
readln(b);
// Вычисляем площадь треугольника
s := (a * b) / 2;
// Выводим результат
writeln('Площадь прямоугольного треугольника: ', s);
end.
В этом коде мы сначала запрашиваем у пользователя значения катетов a и b с помощью функции `readln`. Затем мы вычисляем площадь треугольника по формуле `(a * b) / 2` и сохраняем результат в переменную `s`. Наконец, мы выводим результат с помощью функции `writeln`.
