Блог учителя Информатики

Решение задачи Begin12


Условие задачи:

Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P:
c = (a2 + b2)1/2, P = a + b + c.


uses
  PT4;

var
  a, b, c, p: real;

begin
  Task('Begin12');
  read(a, b);
  c := sqrt(sqr(a) + sqr(b));
  p := a + b + c;
  write(c, p);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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