Question

Помогите с задачей в pascal.введите символ с клавиатуры Найдите сумму произведение и среднее арифметическое и среднее геометрическое цифр его кода

Answer 1

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.

c96b57e9285d8bed42934b5247c47de8.pas