uses crt;
var i,sum,k: integer;
begin
sum: =0;
k: =0;
writeln('вводите числа. 0 - конец последовательности');
repeat
read(i);
if i mod 2=1 then begin
sum: =sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('среднее арифметическое нечетных чисел: ',sum/k: 5: 3);
end.
ответ:
объяснение:
используем формулу нахождения объема:
i = m x n * i
подсчитаем каждый сомножитель в формуле, стараясь числа к степеням двойки:
m x n:
160 * 160 = 20 * 2³ * 20 * 2³ = 400 * 26 =
= 25 * 24 * 26
нахождение глубины кодирования i:
256 = 28
т.е. 8 бит на пиксель (из формулы кол-во цветов = 2i)
находим объем:
i = 25 * 24 * 26 * 23 = 25 * 213 - всего бит на всё изображение
переводим в кбайты:
(25 * 213) / 213 = 25 кбайт
Var a,k:array[1..n] of integer;
i,c:integer;
Begin
Randomize;
Writeln('Введите число c: ');
Readln(c);
For i:=1 to n do
begin
A[i]:=Random(10);
Write(i,' ');
end;
Writeln;
For i:=1 to n do
Begin
If a[i] mod c=0 then
Begin
Write(a[i],' ');
end;
end;
end.