Question

Вычислить площадь прямоугольника, если заданы его диагональ d b сторона a. (Информатика!)

Answer 1

var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.

Пример:
a = 4
d = 5
S = 12

Answer 2

var d,a:real;
begin
  writeln('Введите  длину диагонали: '); readln(d);
  writeln('Введите длину стороны: '); readln(a);
  writeln('Площадь прямоугольника: ', sqrt(sqr(d)-sqr(a))*a);
end.

Тестовое решение:
Введите  длину диагонали:
5
Введите длину стороны:
4
Площадь прямоугольника: 12