29,25,21,17,13,9,5. Те каждое следующее число уменьшается на 4)
Решение на фотографии.Все очень просто если знать математику
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a, b, c, d: real;
Read(a,b,c,d);
Println('1)', a + b + c + d);
Println('2)', a * b * c * d);
Println('3)', a * a - d * d);
Println('4)', Sqrt(a * b * c));
Println('5)', d + b - b * c)
end.
<h2>Пример</h2><h3>23.43 -152.18 -0.13 15</h3><h3>1) -113.88 </h3><h3>2) 6952.87593 </h3><h3>3) 323.9649 </h3><h3>4) 21.5296321845033 </h3><h3>5) -156.9634 </h3>
нц
для i от 1 до 2
S := 0
нц
для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
S = (2 + 2 + 1) + (2 + 2 + 2) + (2 + 3 + 1) + (2 + 3 + 2) = 5 + 6 + 6 + 7 = 24
Немного не понял вопроса, но если составные условия, то наверное имеется ввиду 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 ...