Program lol (input, output); var a, n, b, i, p,s,g m:integer; c:real; begin n:=Random(10000); writeln (n); a:=n; b:=0; c:=0; p:=1; g:=1; while a <> 0 do begin a:=a div 10; b:=b+1; end; while b <> 0 do begin p:=1; for m:=1 to b do p:=p*10; s:=(n mod p) div (p div 10); c:=c+s; g:=g*s; b:=b-1; end; writeln (c); writeln (g); end.
program lol (input, output); var a, b, i, z:integer; begin b:=0; a:=3; z:=0; while a > 2 do begin read (a); z:=0; for I:=2 to a do begin if a mod I = 0 then begin z:=z+1; if (a=I) and (z=1) then b:=b+1; end; end; end; writeln (b); end.
32*32=2^10
512 байт =512*8 бит =2^9 *2^3=2^12
2^12 : 2^10 = 2^2 =4 бита для одного пикселя
2^4 =16 цветов ; ответ 16 цветов.
3)
64*32 =2^11
1 Кбайт =2^10 байта =2^13 битов
2^13 : 2^11 =2^2=4 битов
2^4 =16 цветов ответ 16
4)
5+5 =10 битов под кр и син
8*8=2^6
128 байт=2^7 байт=2^10 бит
2^10 : 2^6 =2^4 =16 бит
16-10 =6 бит под зелёную ответ 6 бит
5)
32*64=2^11
512 байт =2^9*2^3 бит =2^12 бит
2^12 : 2^11 = 2 бита под один пиксель
2^2 =4 цвета ответ 4
6)
128 *128 = 2^14
4 Кбайта = 2^2 * 2^13 битов =2^15 битов
2^15 : 2^14 =2 бита под один пиксель
2^2=4 цвета ответ 4