ответыДля хранения данных в компьютере служит память (б).Для ввода графической информации (рисунков, чертежей и т. д.) с бумажного листа служит сканер (а).Какое из перечисленных ниже устройств является устройством вывода информации с компьютра? Принтер (в).После отключения питания компьютера теряется вся информация, которая находилась в ОЗУ (оперативное запоминающее устройство) (г).Для вывода звуковой информации служит колонки (г).Какое из устройств компьютера не входит в состав системного блока? Принтер (б).Что такое информация? Сведения об окружающем нас мире (в).Что такое клавиатура? Устройство для ввода информации (г).Что такое процессор? Устройство для обработки информации (б).Что такое программное обеспечение компьютера? Совокупность всех программ компьютера (г).
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.
