Кадр анимации представляет Картинку изображения которая сменяется другим кадром ещё это очень маленькая часть в анимации
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.
Uses crt;
var s1,s2: string;
x,y:integer;
function pos(s1,s2:string):integer;
begin
for x:=length(s1) downto 1 do
for y:=length(s2)downto 1 do
if (s1[x]=s2[y]) then pos:=x;
end;
begin
write('s1: '); readln(s1);
write('s2: '); readln(s2);
writeln(pos(s1,s2));
<span>end.</span>
//MV C++ 10
#include <iostream>
using namespace std;
int main()
{
int min, count=1;
cin >>min;
for (int i=0; i<min; i++) count*=2;
cout<<count;
return 0;
}