Вопрос от посетителя:
Turbo Pascal. Человек вводит ширину, длину и высоту куба, потом радиус шара. Определить, поместится ли шар в куб.
Илюха отвечает:
если есть д ш и в то это не куб а параллелипипед
var
a,b,c,r:real;
begin
readln(a,b,c,r);
if (2*r then writeln(‘поместится’) else writeln (‘не поместится’); end. для куба достаточно одного условия (2*r