Напишите программу вычисления периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b. На языке Паскаль
Напишите программу вычисления периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b.
На языке Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,s,p:real;
begin
Write('Введите a и b:');
Read(a,b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
s:=(a/2)*b;
Writeln('Периметр: ',p);
Write('Площадь: ',s);
End.
Гостьvar a,b: integer;
begin
writeln('Введите а');
readln(a);
writeln('Введите b');
readln(b);
writeln('Площадь',' ' , a*b);
writeln('Периметр',' ' , (a+b)*2);
end.
Не нашли ответ?
Похожие вопросы