list={{a,b,c},{e,f},{g},{h}}

list//Flatten

list[[All,1]]

Plus@@list[[All,1]]

Map[f,{a,c,d}];
f/@{a,b,c}
Apply[f,{a,c,d}];
f@@{a,b,c}

rce=(x^2)+1==y;
rce2=y+x==3;

{rce,rce2}

vysledek=Solve[
{(x^2)+1==y,y+x==3},{x,y}
];

vysledek
vysledek//MatrixForm

pravidlo={c->3,x->4};
vyraz=(x^2)+c

ReplaceAll[vyraz,pravidlo];
vyraz/.pravidlo

{{x, y}, {x2, y2}}
{x, y}
x

cisla={x, y} /. vysledek
cisla[[1]]
cisla[[1,1]]
x /. vysledek[[1]]

Definice funkce

Plot[(((((Sin[x]Cos[x])/2)))^2),{x,-2π,2π}]

x=π;

Clear[x,mojefce1]

mojefce1[x_]=(((((Sin[x]Cos[x])/2)))^2);
mojefce2[x_]:=(((((Sin[x]Cos[x])/2)))^2);

?mojefce1
?mojefce2

Plot[mojefce1[x],{x,-2π,2π}]

ClearAll[mojefce3]
mojefce3[{x_,y_}]:=(((((Sin[x]Cos[y])/2)))^2);

mojefce3[{a,b}]

For[]

mojefce2/@Range[0,2π,(π/4)]

Table[mojefce2[x],{x,0,2π,(π/4)}]

((((Sqrt[({{\[Placeholder], \[Placeholder], \[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder], \[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder], \[Placeholder], \[Placeholder]}})])))^\[Placeholder])