Var
a: array[1..10] of integer;
i, s, p: integer;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0; p:=1;
for i:=1 to 10 do
if (a[i] mod 2 > 0) and (a[i] < 30) then
begin
s:=s+a[i];
p:=p*a[i];
end;
writeln(s);
writeln(p);
end.
Program asd;
var x,y,z,v,f:real;
BEGIN
x:=1.825;
y:=18.225;
z:=-3.298;
Write('X: ',x);
Write('Y: ',x);
Writeln('Z: ',x);
v:=abs(exp(ln(x)*(y/x)) - exp(ln(y/x)*(1/3)));
f:=(y-x)*((y-z/(y-x))/1+sqr(y-x));
Writeln('V: ',v:2:2);
Writeln('F: ',f:2:2);
END.
<span>
</span>
<span>примеры систем,имеющих одинаковый состав (одинаковые элементы),но разную функцию -алмаз,графит,алмаз</span>