Предмет: Информатика, автор: Аноним

Даю 50 баллов (за 3 задачи спасибо, за 5 лучший ответ)
Дано слово "велосипедист". Используя строковые функции и процедуры, выполните следующие задания:
1) Путем вырезок и склеек получить слова: велосипед, тесто, олово.
2) Найти номер позиции буквы "д" в этом слове.
3) Исправьте слово "кытунак", чтобы получилось слово "котенок".
4) Получите код всех букв данного слова.
5) Определите четное или нет количество букв в этом слове.


Аноним: Нифига, "разницы в версии паскаля нет, он везде одинаково пашет Maks0104" - Ваши слова. Я напишу ответ в PASCAL.ABC.NET и НИ ОДНА программа в TP не пройдет.

Ответы

Автор ответа: Аноним
0
Написано и протестировано в 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
В слове котенок количество букв нечетное

Похожие вопросы
Предмет: Английский язык, автор: жакон12
Предмет: Английский язык, автор: djanbekovvv02