Отметь свойства, которые характерны для информации 1) При передачи другому человеку её количество уменьшается
2) Её нельзя утратить
3) Ценность суммы информации меньше суммы её частей
4) Не применим закон сохранения
5) Не расходуется при применении

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.

program ms301;  

var a,b,c: integer;

begin

writeln('введите три числа'); readln(a,b,c);

a: =sqrt(a);

b: =sqrt(b);

c: =sqrt(c);

writeln(a,', ',b,', ',c);

readln;

end;

+116=1110100;   -116=0001011