Составьте программу вычисления площади треугольника с основанием a и высотой h. Значения a и h введите с клавиатуры
ПОМОГИТЕ СРОЧНО НАДО!!!
ПОМОГИТЕ СРОЧНО НАДО!!!
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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
writeln('Значения не могут быть отрицательными или равняться нулю')
else
begin
s:=(1/2)*a*h;
writeln('Площадь треугольника s = ',s);
end;
readln;
End.