Var
r, v: real;
i: integer;
begin
v := 0;
r := 0.5; {радиус в дм, т.к. литр - это куб.дм.}
for i := 1 to 12 do
begin
v := v + 4 * Pi / 3 * sqr(r) * r;
r := r + 0.05
end;
Writeln('Суммарный объем равен ', v:0:3, ' л.')
end.
Тестовое решение:
Суммарный объем равен 26.879 л.
У Светы не мишка. У Оли не кукла и не заяц. У Тани не заяц. У Маши не паровоз, не заяц и не мишка, значит у Маши - кукла. У Тани не паровоз.
Получаем, что у Тани не паровоз и не заяц, а кукла уже у Маши, значит у Тани - мишка. У Оли не заяц, не кукла и не мишка, значит у Оли паровоз. И Свете остается заяц.
Маша - кукла, Таня - мишка, Оля - паровоз, Света - заяц.
Вроде так)
Немного не понял вопроса, но если составные условия, то наверное имеется ввиду AND(и), OR(или), XOR(исключающее или).
and работает если все условия правдивы
if (a=5) and (a*a/a=5) do ...
or работает если одно и более условий верны
if(a=5) or (a=3) do ...
xor работает если ТОЛЬКО ОДНО условие верно
if (a=5) xor (a=3) do ...