Найти среднее арифметическое цифр каждого из двух чисел

@1zer0 · Регистрация: 04.05.2017

Author24 — интернет-сервис помощи студентам

Вводятся 2 натуральных числа. Найти среднее арифметическое цифр каждого из них (создать функцию для нахождения среднего арифметического цифр произвольного натурального числа).

@Cyborg Drone · 04.05.2017, 18:12

Pascal

function da(n: integer): real;
var k: integer;
    s: real;
begin
  //n := abs(n);
  k := 0;
  s := 0;
  repeat
    s := s + n mod 10;
    n := n div 10;
    inc(k)
  until n = 0;
  da := s / k
end;
 
var i, x: integer;
begin
  for i := 1 to 2 do
    begin
      write('x', i, ' = ');
      readln(x);
      writeln('Average of digits: ', da(x):0:12)
    end;
  readln
end.

Если раскомментировать строку 5, программа сможет работать со всеми целыми числами, а не только с натуральными.

@1zer0 0 / 0 / 0 Регистрация: 04.05.2017 Сообщений: 11
		1
	Найти среднее арифметическое цифр каждого из двух чисел 04.05.2017, 16:57. Показов 4558. Ответов 1 Метки нет (Все метки) Вводятся 2 натуральных числа. Найти среднее арифметическое цифр каждого из них (создать функцию для нахождения среднего арифметического цифр произвольного натурального числа). 0

	04.05.2017, 18:12

Найти среднее арифметическое цифр каждого из двух чисел

Решение