пусть m={1,2,3,4,5,6}, k={1,3,5}, p={2,4,6,7,8}.запишите с фигурных скобок область определения истиности предложений

вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

иероглифы обозначали целые слова и слоги, их было более 750

пщояк 17 27 16 33 17

нщёп 15 27 7 17