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.

Answer 2

Для решения этой задачи в Pascal можно использовать следующий код:

program CalculateSumAndAverage;
var
  symbol: char;
  code, sum, product, count: integer;
  averageArithmetic, averageGeometric: real;
begin
  // Ввод символа с клавиатуры
  writeln('Введите символ: ');
  readln(symbol);
  
  // Получение кода символа
  code := ord(symbol);
  
  // Инициализация переменных
  sum := 0;
  product := 1;
  count := 0;
  
  // Вычисление суммы, произведения и количества цифр кода
  while code > 0 do
  begin
    sum := sum + (code mod 10);
    product := product * (code mod 10);
    code := code div 10;
    count := count + 1;
  end;
  
  // Вычисление среднего арифметического
  averageArithmetic := sum / count;
  
  // Вычисление среднего геометрического
  averageGeometric := power(product, 1/count);
  
  // Вывод результатов
  writeln('Сумма цифр кода: ', sum);
  writeln('Произведение цифр кода: ', product);
  writeln('Среднее арифметическое: ', averageArithmetic:0:2);
  writeln('Среднее геометрическое: ', averageGeometric:0:2);
end.

Этот код сначала запрашивает у пользователя ввести символ с клавиатуры, затем вычисляет сумму цифр его кода, произведение цифр его кода, среднее арифметическое и среднее геометрическое цифр его кода.