Поместиться ли два квадрата со сторонами а см, в прямоугольнике длина которого с см, ширина d см, Известно что c>d. Паскаль!

Question

Информатика

Эмилианка

19 февраля, 13:19

Поместиться ли два квадрата со сторонами а см, в прямоугольнике длина которого с см, ширина d см, Известно что c>d. Паскаль!

+4

Ответы (1)

Знаете ответ на вопрос?

Диана · Answer 1

Var

a, c, d, t:real;

begin

Write ('Введите сторону квадрата: ') ; Read (a) ;

Write ('Введите длину и ширину прамоугольника: ') ;

Read (c, d) ;

if c
if (d>a) and (c>2*a) then Writeln ('Два квадрата помещаются')

else Writeln ('Два квадрата не помещаются')

end.

Пример

Введите сторону квадрата: 8

Введите длину и ширину прамоугольника: 16.2 9

Два квадрата помещаются