Вопрос по информатике:
Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичне
Наприклад 2013 = 2+0+1+3 =6Середнє арифметичне 6/4=1,5
- 27.11.2017 10:03
- Информатика
- remove_red_eye 9398
- thumb_up 11
Ответы и объяснения 1
Var
i,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.
- 28.11.2017 09:00
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.