Много лет назад интеллект человека во многом определялся его возможностью запоминать, но теперь большой объем информации есть в поисковых системах и баз данных. Поэтому очевидно, что технологии меняют интеллектуальные навыки людей. И от человека зависит какой эффект – положительный или отрицательный окажут на человечество грядущие будущие технологии. Технологии будущего в дальнейшем позволят вылечить множество не смертельных, но жестоких заболеваний. Разнообразные смартфоны, ноутбуки, Интернет позволяют человеку работать в любом месте и в любое время. Технологии будущего повысят выживаемость человека как вида. Именно современные технологии сегодня позволяют совершать сложные операции на сердце и головном мозге. Кроме того, в настоящем появились новые возможности восстановить здоровье. А что же нас ждет впереди? Будущее вообще очень сложно прогнозировать. Происходит смена культур, смена типов мышления, типов общественных взаимоотношений. Главное развитие технологий будущего – это совершенно невиданные современных детей, которые реорганизуют наш мир и улучшат условия жизни человека.
program DecToBinCount;
uses
SysUtils, StrUtils;
function DecToBin (m: Integer): string;
var
r: Integer;
s: string;
begin
while (m > 0) do Begin
r := m mod 2;
m := m div 2;
s := IntToStr (r) + s;
end;
Result := s;
end;
var
m, n, x, i, c: Integer;
s: string;
begin
Write ('Введите M, N, X: ');
ReadLn (m, n, x);
WriteLn;
c := 0;
for i := m to n do begin
s := DecToBin (i);
if RightStr (s, x) = StringOfChar ('0', x) then begin
WriteLn (s, ' '); // для проверки. после тестирования закомментарить
Inc (c);
end;
end;
WriteLn (c);
ReadLn;
end.
При переводе в килобайты и мегабайты делим на 1024