Program ob;
procedure GetVolume();
var
r: real;
begin
write('r = ');
readln(r);
writeln('Объём: ', V(r));
end;
function V(r: real): real;
begin
V := 4 * 3.14 * (r * r * r) / 3;
end;
begin
GetVolume();
end.
могут получиться 22, 97 и 122
вычисляем это так: сумма точно больше либо равна разнице, и сумма меньше либо равна 18(9 + 9 макс.)
ху - изначальное число, где х и у целые и равны от 0 до 9(х не равен 0)
альше делаем одно и то же(покажу на 122)
х + у = 12
х - у = 2
2х = 14
х = 7, у = 5 значит может быть
Использовать Роботалгначесли справа свободно и не сверху свободно товправовсенц пока справа свободно и сверху свободновправокцнц пока не сверху свободно и снизу свободнозакраситьвправокцесли не снизу свободно и не сверху свободно и справа свободно то вправо всенц пока справа свободнозакраситьвправокцкон