Нужно построить таблицы истинности и блок схемы

Question

Информатика: Нужно построить таблицы истинности и блок схемы

SadDorry · Accepted Answer

Procedure ShellStr(var s: string); { сортирует символы строки методом Шелла } var   i, j, n, step: integer;   c: char; begin   s := Trim(s);   n := Length(s);   step := n div 2;   while step 0 do    begin     for j := n - step downto 1 do      begin       i := j;       while i = n - step do        begin         if s[i] s[i + step] then         begin           c := s[i];           s[i] := s[i + 1];           s[i + 1] := c         end;         i := i + step       end     end;     step := step div...

MOGZ ответил