Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
1) 16 = 2^4 ---> 4 бита для одного пикселя
_____________________________________
Монитор - одна страница видеопамяти:
640*400*4 =(640)*(1600) =(5*2^7) * (25*2^6) = 125*2^13 (битов)=
=125 (Кбайтов)
________________________________________
Изображение:
1250:125 = 10 (страниц) ответ 10
------------------------------------------------------------------------------------------------
2) (65*2^13 битов ) : (850*200) = (65*8*1024) : (850*200) =
=532 480 : 170 000 =3,13≈ 4 бита 1 пиксель
2^4 =16 цветов ответ 16
Блук ,Третья планета системы Медуза ...... и так далее
Var
x,k:integer;
a:array[1..100] of integer;
begin
k := 0;
read(x);
while x <> 0 do
begin
k := k + 1;
a[k] := x;
read(x)
end;
writeln(k);
for x := 1 to k do
write(a[x],' ')
<span>end.</span>
N=2^i
V=i*k
1)N=17 => i>4(2^4=16) i=5
k=100
v1=32*100=3200бит
2)N=32 => i=5
k=50
v2=32*50=1600бит
Ответ:Мульти передали в 2 раза больше информации чем пульти