1) 2048 * 1536 = 3145728 точек в изображении
2) 3145728 * 3 байта = 9437184 байт - размер файла
9437184 байт / 1024 = 9216 Килобайт / 1024 = 9 Мегабайт
Ответ: 9 Мб размер этого графического файла
Ответ: 32
Решение:
var arr: array [1..12] of real; s, tmp: real; element_id_1, element_id_2: integer;begin s:=0; for element_id_1:=1 to 12 do readln (arr[element_id_1]); for element_id_1:=1 to 12 do begin for element_id_2:=1 to element_id_1-1 do begin if arr[element_id_2]>arr[element_id_1] then begin tmp:=arr[element_id_2]; arr[element_id_2]:=arr[element_id_1]; arr[element_id_1]:=tmp; s:=s+1; end; end; end; writeln(s);end.
В)11
Кто_Придумал_Лимит_В_Двадцать_Символов?
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.
Попробуй по этому плану сделать :
<span>cout</span><span><<</span><span>"Введите числа:<span>\n</span>"</span><span>;</span>
<span>int</span> numbers<span>[</span><span>100</span><span>]</span>, i <span>=</span><span>0</span><span>;</span>
<span>do</span><span>cin</span><span>>></span>numbers<span>[</span>i<span>]</span><span>;</span>
<span>while</span><span>(</span>numbers<span>[</span>i<span>++</span><span>]</span><span>!</span><span>=</span><span>0</span><span>)</span><span>;</span>
<span>long</span> sum <span>=</span><span>0</span><span>;</span>
<span>for</span><span>(</span><span>int</span> j <span>=</span><span>0</span><span>;</span> j <span><</span> i<span>;</span> j<span>++</span><span>)</span> sum <span>+</span><span>=</span> numbers<span>[</span>j<span>]</span><span>;</span>
<span>cout</span><span><<</span><span>"Результат: "</span><span><<</span><span>(</span><span>float</span><span>)</span>sum<span>/</span><span>(</span>i<span>-</span><span>1</span><span>)</span><span>;</span>