Почему информация в нашей жизни играет важную роль?

Первоначально «информация» — сведения, передаваемые людьми устным, письменным или каким-либо другим осведомляющие о положении дел, о состоянии чего-либо,разъяснение, представление, понятие о чём-либо.

Вот почему информация играет важную роль в нашей жизни.

ответ:

Потому что без информации не будет известны новости про политику.
Не будет никакой информацией про окружающий мир поэтому она играет важную роль.

А также без неё не будем знать чрезвычайные новости о штормовом предупреждении или о распространений аферистов которым нельзя доверять!

Program spusku;
uses crt;
type
      spusok=^elem;
      elem=record
          data:integer;
          next:spusok;
      end;
var i:spusok;

procedure add(var current:spusok; elem:integer);
var x:spisok;
begin
    new(x);
    x^.data:=elem;
    x^.next:=nil;
    current^.next:=x;
    current:=x;
end;

procedure stvor(var i:spusok);
var p:spisok; n:integer;
begin
   i:=nil;
   writeln('Vvedite spusok celux 4usel. 0-konec');
   readln(n);
   add(i,n);
   readln(n);
   while n<>0 do
   begin
     p:=i;
     while p^.next<>nil do
     p:=p^.next;
     add(p,n);
     readln(n);
   end;
end;

procedure minmax(var i:spusok);
var p:spusok; kmin, kmax:integer;
begin
   kmin:=1000000;
   kmax:=0; 
   while i<>nil do
     begin
     p:=i;
     if p^.data>kmax then kmax:=p^.data;
     if p^.data<kmin then kmin:=p^.data;
     i:=i^.next;
   end;
   writeln('raznost =', kmax-kmin)
end;

BEGIN
clrscr;
stvor(i);
minmax(i);
readkey;
end.

За 4 умножения получить
var a, b: integer;
begin
     readln(a);
     b := a * a;
     b := b * b;
     b := b * b;
     b := a * b;
     writeln(b);
end.

Вывести числа [a; b] и их квадраты
Var a, i, b: integer;
begin
     readln(a, b);
     for i := a to b do
          writeln(i, '  ', sqr(i));
end.

Произведение 2-х чисел
Var a, b: integer;
begin
     readln(a, b);
     writeln(a * b);
end.

Максимальное и минимальное из 100 введённых чисел без использования массивов:
var k1, mi, ma, i: integer;
begin
readln(ma);
readln(mi);
for i := 1 to 98 do
begin
readln(k1);
if (ma < k1) then ma := k1;
if (mi > k1) then mi := k1;
end;
writeln(ma, ' - ', mi);
end. 

Перевод из 10чной СС в 2чную
Var b:array [1..255] of integer;
    a, i, n:integer;
begin
     readln(a);
     i := 0;
     while (a >= 1) do
     begin
          i := i + 1;
        b[i] := a mod 2;
      a := a div 2;
     end;
   n := i;
   for i := n downto 1 do write(b[i]);
end.

X в степени Y
 var x, y: real; 
begin
      readln(x, y);
      writeln(exp(ln(X) * Y)); 
end.

Вот)