Помогите составить программу которая представляет символы в заданной строке задом на перед не используя дополнительной строки

@Exzotik · Регистрация: 21.01.2012

Заранее спасибо!

@Denis St. · 12.02.2012, 19:27

Pascal

program strdo;
var
   A: String;
   I,J: Integer;
begin
  read(A);
  I:=length(A);
  J:=1;
  while I>=1 do
  begin
  insert(A[length(A)],A,J);
  delete(A,length(A),1);
  dec(I);
  inc(J);
  end;
  write(A);
  readln;
  readln;
end.

@Puporev · 12.02.2012, 19:27

Pascal

var s:string;
     c:char;
     n,i:byte;
begin
writeln('Введите строку');
readln(s);
n:=length(s);
for i:=1 to n div 2 do
 begin
  c:=s[i];
  s[i]:=s[n-i+1];
  s[n-i+1];
 end;
write(s);
readln
end.

@Exzotik · 12.02.2012, 19:30 **[ТС]**

Большое спасибо!

@Puporev · 12.02.2012, 19:35

Тут я не допечатал

Pascal

begin
  c:=s[i];
  s[i]:=s[n-i+1];
  s[n-i+1]:=c;
 end;

@Exzotik 2 / 2 / 0 Регистрация: 21.01.2012 Сообщений: 28
		1
	Помогите составить программу которая представляет символы в заданной строке задом на перед не используя дополнительной строки 12.02.2012, 19:04. Показов 1209. Ответов 4 Метки нет (Все метки) Заранее спасибо! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Exzotik 2 / 2 / 0 Регистрация: 21.01.2012 Сообщений: 28
	12.02.2012, 19:30 [ТС]	4
	Большое спасибо! 0

Опции темы