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

@andser · Регистрация: 18.04.2013

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

21)
25. Дано слово. Составить программу, которая вставляет некоторую заданную букву после буквы с заданным номером.

@Kordn · 11.06.2013, 14:03

Pascal

var
  s: string;
  c: char;
  n: integer;
 
begin
  write('Слово: ');
  readln(s);
  write('Буква: ');
  readln(c);
  write('После буквы с номером ');
  readln(n);
  if (n > length(s)) or (n < 0) then writeln('Буквы с таким номером в этом слове нет!')
  else
  begin
    s += c;
    for var i := length(s) downto n + 2 do
      s[i] := s[i - 1];
    s[n + 1] := c;
    writeln('Новое слово: ', s);
  end;
end.

@andser 0 / 0 / 0 Регистрация: 18.04.2013 Сообщений: 21
		1
	Дано слово. Составить программу, которая вставляет некоторую заданную букву после буквы с заданным номером 11.06.2013, 12:45. Показов 3862. Ответов 1 Метки нет (Все метки) 21) 25. Дано слово. Составить программу, которая вставляет некоторую заданную букву после буквы с заданным номером. 0

	11.06.2013, 14:03

Опции темы

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

Решение