Program A;
uses crt;
<span>var </span>
<span>s: string; </span>
<span>k,j,f: integer; </span>
<span>ch: char; </span>
<span>begin </span>
<span>read(S); </span>
<span>f:=0; </span>
<span>for k:=1 to length(s) do </span>
<span>for j:=1 to length(s) do </span>
<span>if ((s[k]=s[j]) and (k<>j)) then begin f:=1; ch:=s[k]; end; </span>
<span>if f=1 then Writeln('YES - ',ch) else write('NO'); </span>
<span>readln; </span>
<span>End.</span>
var
i: <em>integer</em>;
begin
for k: <em>byte</em> := 0 to 10 do
i += round(power(2, k));
writeln(i);
<span>end.</span>
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2
<span>74 : 2 =
37 (остаток 0)</span>
37 : 2 = 18
(остаток 1)
18 : 2 = 9 (остаток
0)
9 : 2 = 4 (остаток
1)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
В ответе
записываем остатки с конца подсчетов
Ответ :
1001010
<span>
74(10)
= 1001010(2) </span>
23 : 2 = 11
(остаток 1)
11 : 2 = 5 (остаток
1)
5 : 2 = 2 (остаток
1)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ : 10111
<span>23(10) =
10111(2)</span>
17 : 2 = 8 (остатк
1)
8 : 2 = 4 (остаток
0)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ: 10001
<span>17(10) =
10001(2)</span>
2 : 2 = 1 (остаток
0)
1 : 2 = 0
(остаток 1)
Ответ: 10
<span>2<span>(10) </span>= 10(2) </span>
Задача 1.
Считаем количество пикселей: 640*480.
Умножаем на 8 бит.
Получили Количество информации в битах.
Скорее всего, надо еще перевести в байты или килобайты, то есть разделить на 2^3 в первом случае или на 2^13 во втором.
Задача 2.
Считаем глубину кодирования цвета: 64 = 2^6, значит, 6 бит.
Считаем количество пикселей 32*32 = 2^10.
Перемножаем и переводим в байты, то есть делим на 8.