Ответы на вопрос:
Var a,c,d,t: real; begin write('введите сторону квадрата: '); read(a); write('введите длину и ширину прамоугольника: '); read(c,d); if c< d then begin t: =c; c: =d; d: =t end; if (d> a) and (c> 2*a) then writeln('два квадрата помещаются') else writeln('два квадрата не помещаются') end. пример введите сторону квадрата: 8 введите длину и ширину прамоугольника: 16.2 9 два квадрата помещаются
Популярно: Информатика
-
Yulia280319.04.2022 13:34
-
djodanosu7n807.06.2023 15:27
-
YanaTsaruk21.05.2021 00:33
-
fty354y427.06.2023 00:48
-
иззи210.09.2020 00:22
-
shapo200512.10.2020 20:07
-
алинаарсенова27.07.2022 11:23
-
xezi111.04.2023 00:34
-
milaB6718.02.2021 22:57
-
юля271326.06.2023 12:04