(!(!(!X == Y))) = 1 при
Х = 0, Y = 0
Х = 0, Y = 1
Х = 1, Y = 0
Х = 1, Y = 1

Х = 0, Y = 1

Х = 1, Y = 0

Объяснение:

если х != у, то !х == у равно 1, двойное отрицание не поменяет ничего, значит, чтоб результат был 1, нужно, чтобы х != у. т.е.:

Х = 0, Y = 1

Х = 1, Y = 0

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.