Var x: real;
begin
read(x);
if(x < -1) then writeln(-x + 1)
else if(x >= -1) and (x < 0) then writeln(0)
else writeln(x * x);
<span>end.</span>
Число 110111 в десятичной системе счисления окажется числом 55.
Чётные:6,12,18,452,398
Нечётные числа:771,11,5,29,9,13,99,53
Однозначные числа:6,5,9,
Двузначные числа:12,18,11,29,13,99,53
Трёхзначные числа:771,452,398
Четные однозначные числа:6,
Четные двузначные числа:12,18,
Готово.......................