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

Question

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

Answer 1

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

var 

a,b,c,r:real;

begin

readln(a,b,c,r);

if (2*r

then writeln('поместится')

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

end.

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