Составьте программу вычисления площади треугольникк с основанием a и b и высотой h....

Question

Составьте программу вычисления площади треугольникк с основанием a и b и высотой h. Значение a и h введите с клавиатуры.

Answer 1

Program treugolnik;
Uses crt;

var a,h,s: real;

Begin clrscr;
      write('Основание a = ');
      readln(a);
      write('Высота h = ');
      readln(h);
      writeln;
      if (a<=0) or (h<=0) then<br>
      writeln('Значения не могут быть отрицательными или равняться нулю')
      else
     
      begin
      s:=(1/2)*a*h;
      writeln('Площадь треугольника s = ',s);
      end;
     
readln;
End.
     

Comments

Спасибо большое