ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение:
k = 7
Объяснение:
Фрагмент процедуры на языке VBA.
В двойном цикле проверяются ячейки диапазона 4 на 4
(диапазон A1:D4) на нечетность (Cells(i, j) mod 2 <>0).
Cells(i, j) - обращение к ячейке рабочего листа в строке i и в столбце j.
К столбцам А, В, С и т.д. можно обращаться по номеру 1, 2, 3 и т.д.
Операция Cells(i, j) mod 2 означает остаток от деления числа, которое находится в ячейке Cells(i, j) , на 2. Если число делится на 2 с остатком (остаток <>0 - не равняется 0), то число в ячейке Cells(i, j) - нечетное.
В диапазоне A1:D4 7 нечетных чисел, поэтому переменная к = 7.
Ячейки диапазона просматриваются одна за другой по строкам, при этом значение счетчика k увеличивается на 1, каждый раз, когда число нечетное.
