Чип, вживляемый в мозг всем при рождении. Он подключен непосредственно к нейронам, передает компу напрямую команды (без необходимости пользоваться мышкой и клавой) , и передает от компа в мозг видео и аудио сигналы без необходимости пользоваться монитором и наушниками. Кроме того, становится возможно передавать запахи, вкусы и ощущения.
... очень скоро находится кучка хакеров, которые ломают эту систему, превращая всех людей на планете в зомби. Кучка хакеров захватывает мир. Потом главный хакер убивает всех других хакеров и становится правителем мира. И никто даже не рыпнется против него! :) Занавес.
procedure p(a: mas; k: integer); var t: integer; begin if a[k] <> 0 then begin t := a[k]; if a[k] < 0 then writeln(a[k]); p(a, k + 1); end else t := -1; if t > 0 then writeln(t); end;
var n, i: integer; a: mas;
begin randomize; write('Размер последовательности от 2 до 10 n= '); readln(n); writeln('Последовательность'); for i := 1 to n do begin repeat a[i] := -10 + random(21); until a[i] <> 0; write(a[i]:4); end; writeln; a[n + 1] := 0; writeln('Преобразованная последовательность'); p(a, 1); end.
... очень скоро находится кучка хакеров, которые ломают эту систему, превращая всех людей на планете в зомби. Кучка хакеров захватывает мир. Потом главный хакер убивает всех других хакеров и становится правителем мира. И никто даже не рыпнется против него! :) Занавес.
mas = array[1..11] of integer;
procedure p(a: mas; k: integer);
var t: integer;
begin
if a[k] <> 0 then
begin
t := a[k];
if a[k] < 0 then writeln(a[k]);
p(a, k + 1);
end
else t := -1;
if t > 0 then writeln(t);
end;
var
n, i: integer;
a: mas;
begin
randomize;
write('Размер последовательности от 2 до 10 n= ');
readln(n);
writeln('Последовательность');
for i := 1 to n do
begin
repeat
a[i] := -10 + random(21);
until a[i] <> 0;
write(a[i]:4);
end;
writeln;
a[n + 1] := 0;
writeln('Преобразованная последовательность');
p(a, 1);
end.