Заполни таблицу устройства компьютера: устройства ввода, устройства вывода, устройства хранения, устройство обработки

Клавиатура,Принтер,Папка,?

Биография

После ядерной войны, которую в недалёком будущем развязал искусственный интеллект министерства обороны США «Скайнет», человечество было порабощено машинами и оказалось на грани уничтожения. Джон стал тем харизматичным лидером, который повёл уцелевших людей на борьбу. Под его руководством армия Сопротивления одержала полную победу к 2029 году. Скайнет, не имея возможности выиграть войну в настоящем, несколько раз посылал в роботов-убийц (терминаторов), чтобы предотвратить рождение Джона или убить его в юности.

Будущий отец Джона — солдат Сопротивления Кайл Риз родился в начале XXI века, вскоре после начала Войны[3] и, сам того не подозревая, служил под началом сына. Он вызвался добровольцем, чтобы быть отправленным в 1984 год для защиты от терминатора матери Джона — Сары Коннор. Сара и Риз влюбились друг в друга. Риз погиб, успев сообщить основную информацию о будущей войне.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

procedure Preobraz(var Stroka:string);
begin
  var bq:=new Queue<(integer,integer)>;
  foreach var m in Stroka.Matches('\s+') do
    bq.Enqueue((m.Index,m.Length));
  var wq:=new Queue<(integer,string)>;
  foreach var m in Stroka.Matches('\S+') do
    if m.Value.Any(t->t in ['0'..'9']) then wq.Enqueue((m.Index,''))
    else wq.Enqueue((m.Index,m.Value));
  Stroka:='';
  var pbi,pwi:integer;
  while (bq.Count>0) and (wq.Count>0) do begin
    (pbi,pwi):=(bq.Peek[0],wq.Peek[0]);
    if pbi<pwi then begin
      Stroka:=Stroka+bq.Peek[1]*' ';
      bq.Dequeue
      end
    else begin
      Stroka:=Stroka+wq.Peek[1];
      wq.Dequeue
      end
    end;
  while bq.Count>0 do begin
    Stroka:=Stroka+bq.Peek[1]*' ';
    bq.Dequeue
    end;
  while wq.Count>0 do begin
    Stroka:=Stroka+wq.Peek[1];
    wq.Dequeue
    end
end;

begin
  var s:=ReadlnString;
  Preobraz(s);
  s:='<'+s+'>'; // чтобы было видно, как работает
  s.Println
end.