решить ПАТ по информатике решить ПАТ по информатике решить ПАТ по информатике. ">

Var
    ax, bx:word;
    st, sa,sg:string;
    i,j, l:byte;
    

BEGIN
  write('Введите целое положительноe число : ');
  readln(st);  
 
  sa := '';
  sg := '';
  ax := 0;
  bx := 1;
  l := st.Length;
  for i:=1 to l do begin
    j:=ord(st[i])-48;
    ax := ax + j;
    bx := bx * j;    

    sa := sa+j+'+' ;
    sg := sg+j+'*';
  end;
  i := l*2-1;
  sa := sa.Remove(i,1);
  sg := sg.Remove(i,1);

  writeln('Среднее арифметическое = (',sa,')/',l, '= ', ax / l );
  writeln('Cреднее геометрическое = корень ',l ,' степени из (',sg,') = ', exp(ln(bx)/l));
END.

ответ: 5940

var steps := 12; // За кол-во ходов
var Xend  := 7; // В точку с координатой X
var Yend  := 3; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin  
    if step = 0 then    
        vars += (X = Xend) and (Y = Yend) ? 1 : 0
    else    
        begin      
             Find(step - 1, X + 1, Y    );      
             Find(step - 1, X - 1, Y    );      
             Find(step - 1, X    , Y + 1);      
             Find(step - 1, X    , Y - 1);    
        end;
end; 
begin  
     Find(steps, 0, 0);  
     Print(vars);
end.