Var a,b,i,min,j,sum:longint;
m:array[1..3,1..3] of longint;
begin
for i:=1 to 3 do
for j:= 1 to 3 do
read(m[i,j]);
for i:=1 to 3 do
if m[i,i]< 0 then
begin
for j:=1 to 3 do
sum:=sum+m[i,j];
writeln(i,' ',sum);
sum:=0;
end;
for i:=1 to 3 do
begin
writeln;
for j:= 1 to 3 do
write(m[i,j],' ');
end;
<span>end.</span>
Если под "кб" подразумевались килоБИТы, то 3500*1024/16/3200 = 70 секунд. Если – килоБАЙТы, то 3500*1024*8/16/3200 = 560 секунд.
Буква "ш" + нарисованная бутылка "кола"
или слово
шоколад
а под ним цифры 2 и 7 зачеркнутые
Очевидно, это двоичная последовательность. Здесь 64 разряда (бита).
Их можно разбить ровно на 8 байт (т.к. в одном байте 8 бит):
00110101
00100000
11100001
11100000
11101011
11101011
11101110
11100010
Если перевести эти двоичные значения в шестнадцатеричные числа, то получим: 35 20 e1 e0 eb eb ee e2
а если в десятичные числа, то: 53 32 225 224 235 235 238 226
Для любого из этих трёх представлений (двоичного, шестнадцатеричного и десятичного) можно найти кодовые таблицы, по которым легко определить символы текста, соответствующие этим кодам. Чаще всего в таких таблицах используют шестнадцатеричную форму чисел.
Кодовые таблицы бывают разные, но для широко используемой кодировки Windows-1251 в результате перевода этих значений получится такой текст:
<u>5 баллов</u>
Var b: integer;
a: boolean;
begin
a:=true;
if a then b:=4
else b:=-4;
writeln(b)
end.