В группах символов, состоящих только из цифр, поменять первый и последний элемент местами - Pascal ABC

Формулировка задачи:

Помогите,пожалуйста

Код к задаче: «В группах символов, состоящих только из цифр, поменять первый и последний элемент местами - Pascal ABC»

textual
uses crt;
const cf=['0'..'9'];
var s:string;
    i,j,k1,k2,n:byte;
    c:char;
begin
writeln('Введите строку, содержащую группы цифр');
read(s);
n:=length(s);
i:=1;
while i<=n do
if (s[i] in cf)and((i=1)or not(s[i-1] in cf)) then
 begin
  k1:=i;
  k2:=i;
  while s[k2] in cf do inc(k2);
  c:=s[k1];
  s[k1]:=s[k2-1];
  s[k2-1]:=c;
  i:=k2;
 end
else inc(i);
write(s)
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы