Осязание (на ощупь,можно трогать чувствовать)
1) чтобы найти R шара нужно V разделить на a и на π
<span>var N, x, y, i: integer; </span><span>
begin
write(' N = ');
readln(N); </span>
<span>for i:=1 to N do </span>
<span>begin
writeln ('x='); </span>readln(x);
writeln ('y='); readln(y);
if y=abs(x) tnen write(' принадлежит ')
else write(' не принадлежит ');
end;
<span>
end.</span>
Что надо то?
Таблицу истинности?
<span><u>алг.</u>
<u>нач.</u>
<u>повторяй </u>
положить гриб в корзину;
<u>пока</u> в корзине есть место;
<u>кон.</u></span>