Для решения примера вспоминаем, что при переходе от шестнадцатиричной системы счисления к двоичной достаточно заменить каждую шестнадцатиричную цифру четырьмя двоичными (тетрадой).
Предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. Для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. Для дробной части незначащие нули - последние и мы будем их искать в последней тетраде.
Первая тетрада - представление 1(16)=0001(2). Левые три нуля незначащие и их удаляем, остается 1. Последняя тетрада - представление Е(16)=1110(2). Тут один незначащий ноль - правый, остается 111.. Остальные тетрады переписываем без изменения.
12АС,6Е(16)=1 0010 1010 1100 , 0110 111 (2)
Считаем количество нулей в записи: 9. Это и есть ответ.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
s:=s.Replace(',',', '); Writeln(s);
Writeln(NewLine,'Список слов:');
s.ToWords.OrderBy(x->x).Println(NewLine);
end.
Тестовый пример
> Это мой,плохо форматированный,но зато мой текст!
Это мой, плохо форматированный, но зато мой текст!
<u><em>Список слов:</em></u>
зато
мой
мой,
но
плохо
текст!
форматированный,
Это
Как-то так
const x0=0; x1=180; dx=1;
var x:real;
begin
x:=x0;
while x<=x1 do
begin
writeln(x,' ',x/180*pi);
x:=x+dx;
end;
<span>end.</span>
Var
i : integer;
count : real;
begin
count := 370000;
for i := 2014 to 2030 do
begin
writeln('Год ', i, ': ', Round(count));
count := count + count * 3 / 100;
end;
<span>end. </span>
using System;
using System.Linq;
namespace Prog
{
public class Program
{
public static void Main(string[] args)
{
String str = "15 0 87 2 34";
String[] nums = str.Split(' ');
var evenNumbers = nums.Where(i => Convert.ToInt32(i) % 2 == 0);
foreach (String i in evenNumbers)
Console.WriteLine(i);
}
}
}
Подробнее - на Znanija.com - znanija.com/task/30617450#readmore