Решаем задачи Абрамян на Паскале. Begin 12

Begin12. Даны катеты прямоугольного треугольника $a$ и $b$ . Найти его гипотенузу $c$ и периметр $P$ :
$c=\sqrt{a^2 + b^2}$ , $P=a+b+c$ .

Решение:

program Begin12;
var
 a,b,c,P: Real;
begin
 Write('Введите длинну катета а: ');
 Readln(a);
 Write('Введите длину катета b: ');
 Readln(b);
 c:=Sqrt(Sqr(a)+sqr(b));
 Writeln('Гипотинуза прямоугольного треугольника равна: ',c);
 P:=a+b+c;
 Writeln('Гипотинуза прямоугольного треугольника равна: ',P);
end.

program Begin12;

var

a,b,c,P: Real;

begin

Write('Введите длинну катета а: ');

Readln(a);

Write('Введите длину катета b: ');

Readln(b);

c:=Sqrt(Sqr(a)+sqr(b));

Writeln('Гипотинуза прямоугольного треугольника равна: ',c);

P:=a+b+c;

Writeln('Гипотинуза прямоугольного треугольника равна: ',P);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Begin 12

Комментарии:

Добавить комментарий Отменить ответ