Задать вопрос
23 августа, 16:14

Здравствуйте) Вводится натуральное число. Определить среднее арифметическое его цифр. Pascal) не могли бы помочь?

+1
Ответы (1)
  1. 23 августа, 18:43
    0
    var

    a, s, k : integer;

    Sr : real;

    begin

    s : = 0; k : = 0;

    readln (a) ;

    While a > 0 do

    begin

    s : = s + a mod 10;

    a : = a div 10;

    k : = k + 1;

    end;

    Sr : = S/k;

    writeln (Sr) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Здравствуйте) Вводится натуральное число. Определить среднее арифметическое его цифр. Pascal) не могли бы помочь? ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы