Написано и протестировано в PascalABC.NET (версия 2.2, сборка 842) const s='велосипедист'; var t:='кытунак'; p:string; begin // 1 Writeln(LeftStr(s,9),', ', s[12]+s[2]+s[5]+s[12]+s[4],', ', s[4]+Copy(s,3,2)+s[1]+s[4]); // 2 Writeln('Позиция буквы "д" в слове "'+s+'" равна ',s.IndexOf('д')+1); // 3 Write('Было: ',t,', стало: '); t[2]:='о'; t[4]:='е'; t:=t.Replace('а','о'); Writeln(t); // 4 Write('Коды символов слова ',t,': '); foreach c:char in t do Write(Ord(c),' '); Writeln; // 5 Write('В слове ',t,' количество букв '); if Odd(t.Length) then Writeln('нечетное') else Writeln('четное') end.
Результат выполнения программы: велосипед, тесто, олово Позиция буквы "д" в слове "велосипедист" равна 9 Было: кытунак, стало: котенок Коды символов слова котенок: 234 238 242 229 237 238 234 В слове котенок количество букв нечетное
№ 1 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) неверно, что 0 < X ≤ 3 и Y>5; 2) X является max(X,Y); 3) X не является min(X,Y); 4) Z является min(X,Y,Z). № 2 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) Y не является max(X,Y,Z) и не является min(X,Y,Z); 2) X,Y,Z равны между собой; 3) каждое из чисел X,Y,Z положительно; 4) каждое из чисел X,Y,Z отрицательно.
X:=28.
Ничего сложного))