деревянное- состав дерево,действия вращается, обот деревянный, крутится медленно
Var i,a:integer;
begin
for i:=1 to 99 do
if i mod 4=0 then a:=a+i;
write (a);
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(10);
a.Reverse.Println
end.
<u>Пример</u>
23 132 52 0 41 7 3732 18 49 13
13 49 18 3732 7 41 0 52 132 23
В принципе тут все так же и пишется....
a) f:= a + b * x + c * y * z;
b) f:= ((a * x - b) * x + c) * x - d;
или если вместо квадратных скобок прямые:
f:= abs((a * x - b) * x + c) * x - d;
c) f:= a + b / c + c / a * b;
или если там есть скобки:
f:= (a + b) / c + c / (a * b)
d) f:= x + y / a1 * a2 / x - y;
write('введите a,b,c,d,x,y,z,a1,a2'); readln(a,b,c,d,x,y,z,a1,a2);