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

Question

Информатика

Ревекка

21 июня, 11:31

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