'Multyple' operation in binary system is simple: when the both components are '1' result will be '1', otherwise result will be '0'.
0011
x
1011
-----------
1011
+
1011
+ 0
+ 0
----------------
100001
PS/ 1+1=10; 0+0=0; 1+0=1; 1011*1=1011; 1011*0=0
Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.
Ответ :
в ) отделяет один раздел програми от другого...
Для палитры 65536 цветов требуется 16 бит или 2 байта на точку.
Перемножим все данные и получим:
1024*768*2=1572864 байт=1536 кбайт = 1,5 Мбайт
PascalABC.NET
begin
var flag := true;
var a := readinteger;
var b := readinteger;
for var i := a to b do
if (i * i).ToString.EndsWith(i.ToString) then
begin
write(i, ' ');
flag := false;
end;
if flag then write(-1)
end.