(!(!(!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

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.