Дано целое число N (> 0) и строка S. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы «.»

Категория: Delphi/Pascal
2013-04-07 18:41:06
code: #pascal
program String26;
var
  n,i: integer;
  s,s1: string;
  len: integer;
begin
  readln(n,s);
  len := length(s);
  if len>n then
     delete(s,1,len-n)
  else if len<n then
    begin
      s1:='';
      for i:=1 to n-len do
        s1:=s1+'.';
     insert(s1,s,1);
    end;
  writeln(s);
  readln;
end.

автор: lamed

Поделиться:

Похожие статьи:

теги: строка, целое