Инверсии не вижу, поэтому так: 1. конъюнкция; 2. импликация; 3. Объединяешь решения.
2) writeln (copy(s1,2,6));
3) delete (s,1,5);
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Я считаю, потому что алфавитный подход позволяет измерять информационный объем текста,не связанный с содержанием этого текста