<span><span><span> 1
</span><span>
1
2
</span><span>
2
4
</span><span>
3
8
</span><span>
4
16
</span><span>
5
32
</span><span>
6
64
</span><span>
7
128
</span><span>
8
256
</span><span>
9
512
</span><span>
10
1024
</span></span></span>
Var n,i:integer;
begin
read (n);
if (n>=1)then begin
for i:=0 to n do
begin
if (i*2+i*i+1)<=n then writeln (i*2+i*i+1);
end;
end else writeln ('Нет таких чисел');
end.
65 536 = 2^16 ---> 16 бит для кодирования одного пикселя
16*1280*1024=5*2^4 *2^8*2^10=5*2^22 бит =5*2^19 байт=5*2^9 Кбайт=
=5*512 Кбайт=2560 Кбайт
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(30,1,20); a.Println;
Writeln('Элементов, оканчивающихся цифрой 8- ',
a.Where(x->x mod 10=8).Count)
end.
<u>Пример</u>
1 3 20 17 2 5 3 14 18 1 13 3 8 9 5 19 19 3 19 20 2 12 20 13 7 5 10 9 1 20
Элементов, оканчивающихся цифрой 8- 2
Для того чтобы задержать для себе какой нибудь видеофайл