50 (за 3 , за 5 лучший ответ) дано слово "велосипедист". используя строковые функции и процедуры, выполните следующие : 1) путем вырезок и склеек получить слова: велосипед, тесто, олово. 2) найти номер позиции буквы "д" в этом слове. 3) исправьте слово "кытунак", чтобы получилось слово "котенок". 4) получите код всех букв данного слова. 5) определите четное или нет количество букв в этом слове.
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
В слове котенок количество букв нечетное