Question

Создать Паскаль программу,которая должна выдать вычисления от 1 до 5,вычислить гипотенузу по катетам, вычислить периметр треугольника,только письменный вариант

Answer 1

program n_1; var a, b, c, P: real; begin write('Введите число a'); readln(a); write('Введите число b); readln(b); c:= Sqrt(Sqr(a)+Sqr(b)); P:= a+b+c; writeln('c = ', c); writeln('P = ', P); readln; end.

Answer 2

спасибо,спасли