с клавиатуры вводится 4 2-значных числа. Найдите среднее арифметическое между суммами всех цифр в числах.
Сделать на паскале. Желательно кратко объяснить
Ответы
Var a,i: integer; s: real;
Begin
for i := 0 to 3 do begin
read(a);
s := s + a div 10 + a mod 10;
end;
writeln(s / 4);
End.
Мы вводим с клавиатуры каждое из четырёх чисел, затем суммируем все цифры, из которых состоят числа, в общий котелок, ибо среднее арифметическое сумм всех цифр умноженное на 4 будет равняться сумме всех цифр в числах. Затем, как ни странно, мы вещественно делим эту сумму на 4 и получаем среднее арифметическое.
Если надо среднее арифметическое для каждого из чисел, то код должен быть следующим:
Var a,i: integer; s: real;
Begin
for i := 0 to 3 do begin
read(a);
s := a div 10 + a mod 10;
writeln(s / 2);
end;
End.
Ответ:
program summa_4_dvuhznachnih_chisel;
var a,i,sum: integer;
begin
sum:=0;
for i := 1 to 4 do begin
read(a);
sum:= sum + a div 10 + a mod 10;
end;
writeln(sum/4);
end.
Объяснение:
program summa_4_dvuhznachnih_chisel;
var a,i,sum: integer;
Переменные:
А для чисел
I организация цикла для ввода 4х чисел
Sum переменная для нахождения суммы
begin
Начало проги
sum:=0;
Начальное значение суммы 0
for i := 1 to 4 do begin
Цикл для ввода 4х чисел
read(a);
Ввод числа с клавиатуры
sum:= sum + a div 10 + a mod 10;
Увеличение значения суммы на значение первой и последней цифры числа
end;
Конец цикла
writeln(sum/4);
Вывод суммы, выделенной на 4, то есть среднего арифметического
end.