Если длина строки больше заданной, отбросить первые символы, иначе в её начало добавить символы "."

@Cat2010 · Регистрация: 08.10.2010

Студворк — интернет-сервис помощи студентам

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

@pryda · 10.11.2010, 18:25

Pascal

var s:string;
    i,n:integer;
begin
writeln('Введите строку');
readln(s);
writeln('Введите число');
readln(n);
if length(s)>n then
repeat
delete(s,1,1);
until length(s)=n
else
repeat
s:='.'+s;
until length(s)=n;
writeln(s);
readln;
end.

@Cat2010 0 / 0 / 0 Регистрация: 08.10.2010 Сообщений: 14
		1
	Если длина строки больше заданной, отбросить первые символы, иначе в её начало добавить символы "." 10.11.2010, 18:21. Показов 1863. Ответов 1 Метки нет (Все метки) Дано целое число N (N>0) и строка S.Преобразовать строку S в строку длины N следующим образом:если длина строки S больше N,то отбросить первые символы,если длина строки S меньше N, то в её начало добавить символы "." (точка). 0

Опции темы

Если длина строки больше заданной, отбросить первые символы, иначе в её начало добавить символы "."

Решение