Строки. Дано слово, переставить его букву с номером S после номера K

@Zig · Регистрация: 29.02.2012

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

Дано слово ,переставить его букву с номером S после номера K?

@ermolay · 18.04.2012, 21:27

Pascal

const
  n=2;
  m=22;
var
  st,st1: string;
  s,k: integer;
  ch: char;
begin
  write('vvedite slovo: ');
  readln(st);
  repeat
    write('vvedite dva chisla s,k: ');
    readln(s,k);
  until (s in [1..length(st)])and(k in [1..length(st)]);
 
  st1:=copy(st,s,1);
  delete(st,s,1);
  insert(st1,st,k+1);
  writeln(st);
  readln;
end.

@Zig · 18.04.2012, 21:33 **[ТС]**

А МОЖНО ПОПРОЩЕ

@ermolay · 18.04.2012, 21:45

что непонятно? можно убрать некоторые строки:

Pascal

var
  st,st1: string;
  s,k: integer;
  ch: char;
begin
  write('vvedite slovo: ');
  readln(st);
  write('vvedite dva chisla s,k: ');
  readln(s,k);
  st1:=copy(st,s,1);  {копируем букву}
  delete(st,s,1);     {удаляем ее}
  insert(st1,st,k+1); {вставляем}
  writeln(st);
  readln;
end.

да, первые три строчки из другой оперы, сорри))

@Zig 0 / 0 / 0 Регистрация: 29.02.2012 Сообщений: 20
		1
	Строки. Дано слово, переставить его букву с номером S после номера K 18.04.2012, 21:03. Показов 846. Ответов 3 Метки нет (Все метки) Дано слово ,переставить его букву с номером S после номера K? 0

@Zig 0 / 0 / 0 Регистрация: 29.02.2012 Сообщений: 20
	18.04.2012, 21:33 [ТС]	3
	А МОЖНО ПОПРОЩЕ 0

	18.04.2012, 21:45