Примерами фактов являются: а) статьи в толковых словарях и энциклопедиях; б) описание способа обучения малышей грамоте; в) описание последовательности действий при включении компьютера; г) алгоритм решения уравнения; д) описание, как приготовить борщ. примерами правил являются: а) описание строения атома; б) описание строения солнечной системы; в) таблица умножения; г) знание об устройстве компьютера; д) описание способа лечения болезни человека.

Варианты ответов: 1) a 2) д

program z1;

uses crt;

var a: array [1..7] of integer;

      x,z,i: integer;

begin

  clrscr;

 

  for i: =1 to 7 do

      readln (a[i]);

 

  clrscr;

 

  for i: =1 to 7 do

      write (a[i]: 4);

 

  writeln;

  for i: =1 to 7 do

      if a[i]=49 then x: =i;

 

    z: =a[1];

  a[1]: =a[x];

  a[x]: =z;

 

  for i: =1 to 7 do

      write (a[i]: 4);

 

  readln

end.

вроде

 

program z1;

uses crt;

var x,a,b,c: integer;

begin

  clrscr;

 

  readln (a);

  readln (b);

  readln (c);

 

  if (a+b) > c then

    if (a+c) > b then

      if (b+c) > a then begin

                                              write ('yes');

                                              x: =x+1;

                                          end;

  if x=0 then writeln ('no');

 

  readln

end.