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

Question

Информатика

Леонтия

17 ноября, 17:39

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

+3

Ответы (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