Программа вычисляет элементы ряда, который можно задать формулой общего члена следующей формулой: An = (n*n!)/2^(n), где 2^(n) - это 2 в степени n.
Var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:5:2);
end.
Пример:
<span>R = 3
V = 113.10</span>
62=2^6
Значит,любое загаданное число можно отгадать за 6 раз.
По идее это сетка протоколов TCP/IP уровень Internet layer
Вот, если не то, тогда сори.