Cntrl зажимаешь и выбираешь фигуру Круг и тянешь и он будет идеально ровный
Var s:string;
begin
readln(s);
if odd(length(s)) then delete(s,length(s) div 2+1,1)
else delete(s,length(s) div 2,2);
writeln(s)
<span>end.</span>
Разделим двоичные числа по 4 битам, начиная с конца:
0001 0001 1100
Заменим каждые 4 бита на соответствующее число в системе счисления с основанием 16.
0001 = 1 * 2^0 = 1
0001 = 1 * 2^0 = 1
1100 = 1 * 2^3 + 1 * 2^2 = 8 + 4 = 12 = С
100011100 = 11C
Аналогично для 11111:
0001 1111
0001 = 1 * 2^0 = 1
1111 = 1 * (2^3 + 2^2 + 2^1 + 2^0) = 15 = F
11111 = 1F
Ответ: 11С, 1F.
<em>
</em><em />В приведенной последовательности ошибка, там не 18, а 17.
<em>
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,c,d:integer;
(a,b,c):=(1,1,1);
Print(a,b,c);
for var i:=1 to 20 do begin
d:=a+b+c; Print(d);
(a,b,c):=(b,c,d)
end;
Writeln
end.
<u>Результат</u>1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329