Расшифруйте: аскстеа и секдиат- носители информации

👇

Увидеть ответ

Ответ:

iSia07

19.04.2023

Получается кассета и дискета)

4,4(28 оценок)

Открыть все ответы

Ответ:

Lizaliza123123

19.04.2023

Биография

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

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

4,8(76 оценок)

Ответ:

ardolg

19.04.2023

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.

Дана строка содержащая любые символы кроме букв. под словом будем понимать последовательность симв