Turbo Pascal. Человек вводит ширину, длину и высоту куба, потом радиус шара. Определить, поместится ли шар в куб.

Question

Информатика

Васяня

16 апреля, 17:26

Turbo Pascal. Человек вводит ширину, длину и высоту куба, потом радиус шара. Определить, поместится ли шар в куб.

+1

Ответы (1)

Знаете ответ?

Моника · Answer 1

если есть д ш и в то это не куб а параллелипипед

var

a, b, c, r:real;

begin

readln (a, b, c, r) ;

if (2*r
then writeln ('поместится')

else writeln ('не поместится') ;

end.

для куба достаточно одного условия (2*r