ответ: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.
Объяснение:
3750 Кбайт
Объяснение:
V = t * f * i * k , где
V - информационный объём аудио файла (размер файла, содержащего запись звука)
t - общая длительность звучания (секунды)
f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)
i - глубина звука (разрешение, разрядность) (число бит, используемых для хранения каждого измеренного значения)
k - количество каналов записи (1 - моно, 2 - стерео и т.д.)
Дано:
t = 4 мин = 4 * 60 = 240 секунд
f = 16 000 (единицы не указаны, будем считать что Гц)
i = 8 бит
k - не указано (будем считать 1 моно)
Найти:
V
V = t * f * i * k
V = 240 * 16 000 * 8 * 1 = 30 720 000 бит
V = 30 720 000 бит = 30 720 000 / 8 = 3 840 000 байт = 3 840 000 / 1024 = 3750 Кбайт
var a,i:integer;
begin
for i:=1 to 5 do
begin
readln(a);
if a mod 5 =0 then writeln('число ',a,' делиться нацело на 5');
end;
end.