• Знайти суму чисел введеного чотирьохзначного числа  та їх середнє арифметичне
    Наприклад 2013  = 2+0+1+3 =6Середнє арифметичне  6/4=1,5

Ответы 1

  • vari,n,m,x,k:Integer;s:String;Begin Read(n); While (n>0) do  begin   m:=(n mod 10);   n:=(n div 10);   x:=x+m;   k:=k+1;  end; Writeln('Сума : ',x); Writeln('Середнє арифметичне : ',x/k:0:1);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years