Длины сторон первого прямоугольника А и В, его площадь в 6 раз меньше площади второго...

Question

Длины сторон первого прямоугольника А и В, его площадь в 6 раз меньше площади второго прямоугольника. Найти длину стороны второго треугольника, если длина одной из его сторон равна С.(Составить алгоритм)

Answer 1

Var a,b,c,d:real;
begin
writeln ('Введите длины сторон первого прямоугольника');
read (a,b);
writeln ('Введите длину одной стороны второго прямоугольника');
read (c);
d:=(6*a*b)/c; //Из формулы s2/s1=6 ; c*d/a*b=6
writeln ('Длин другой стороны второго прямоугольника = ',d)
end.