Практикум по решению задач на ЭВМ. Тарова И.Н - 39 стр.

                 Практикум по решению задач на ЭВМ


var m,n:integer;s1,s2:string;
begin
 clrscr;
 writeln('Введите строку символов: ');
 readln (s1);
 writeln('Введите позицию первого элемента фрагмента: ');
 readln (m);{ввод значения m}
 writeln('Введите длину фрагмента: ');
 readln (n);
 s2:=copy(s1,m,n);
 write('Фрагмент: ');
 writeln(s2);
 readln;
end.




5) Выделить правую подстроку длиной n символов.

program podstroca(input,output);
uses CRT;
var n,l1:integer;s1,s2:string[10];
begin
  clrscr;
  writeln('Введите строку символов: ');
  readln (s1);
  writeln('Введите количество символов правой подстроки: ');
  readln (n);
  l1:=length(s1);
  s2:=copy(s1,l1-n+1,n);
  writeln('Правая подстрока: ',s2);
  readln;
end.




                                 39