Ответы на вопрос:
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.
Популярно: Информатика
-
Gudimnik116.09.2021 12:55
-
vladpin0109.10.2020 15:37
-
yexevosux03.11.2020 18:32
-
vasnecovadaha21.08.2022 03:15
-
kryp430.08.2020 22:13
-
CCQ14.11.2020 12:16
-
Anonimka0401.04.2022 01:34
-
nastyyya419.03.2021 12:16
-
innahot41819.02.2023 09:19
-
smirnov2712198101.05.2021 16:45