Question

Запишите программу на языке PascalABC для вычисления площади прямоугольного треугольника со сторонами: N, P, K

Помогите пожалуйста!

Answer 1

Ответ:

Объяснение:

Площадь прямоугольного треугольника равна половине произведения катетов. А катеты - это две меньших стороны.

Поэтому программа будет примерно такая:

Program Treugolnik

uses CRT;

var N, P, K, S : real;

BEGIN

clrscr;

write ('N = ');

readln (N);

write ('P = ');

readln (P);

write ('K = ');

readln (K);

If (N >= P) and (N >= K) then S := P*K/2;

If (P >= N) and (P >= K) then S := N*K/2;

If (K >= P) and (K >= N) then S := P*N/2;

writeln ('S = ', S);

END.