Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

По теме обработка строк в паскале записать программу с любыми двумя словами.(объединение строк,длина строки,копирование,поиск,удаление)

Ответ оставил Гость

var

  s1, s2: string;

  i, n1, n2: integer;

begin

  writeln(Введите первое слово);

  readln(s1);

  writeln(Введите второе слово);

  readln(s2);

  writeln(Объединение слов:  , s1 + s2);

  writeln(Длина первого слова:  , length(s1));

  writeln(Длина второго слова:  , length(s2));

  for i:= 1 to length(s1) do

    if s1[i] = а then inc(n1);

  for i:= 1 to length(s2) do 

    if s2[i] = a then inc(n2);

  writeln(В первом слове , n1, букв "а" );

  writeln(Во втором слове , n2, букв "а" );

  writeln(Первые 5 букв первого слова:  , copy(s1, 1, 5));

  writeln(Первые 5 букв второго слова:  , copy(s2, 1, 5));

  delete(s1, length(s1) - 4, 5);

  delete(s2, length(s2) - 4, 5);

  writeln(Результат удаления последних 5 букв первого слова:  , s1);

  writeln(Результат удаления последних 5 букв второго слова:  , s2);

end.