Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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