Обработка строковых данных в языке программирования Pascal

@hom4ka · Регистрация: 10.11.2013

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

Ваша программа должна в заданном тексте удвоить каждый символ, стоящий на нечетном месте.

@Cyborg Drone · 11.03.2014, 03:56

Сообщение от hom4ka

Ваша программа

hom4ka, не наша. Ваша. Вот так:

Pascal

var s, r: string;
    i: integer;
begin
  r := '';
  writeln('Enter string:');
  readln(s);
  for i := 1 to length(s) do
    begin
      r := r + s[i];
      if odd(i) then r := r + s[i]
    end;
  writeln('Result:');
  writeln(r);
  readln
end.

Или даже так:

Pascal

var s: string;
    i: integer;
begin
  writeln('Enter string:');
  readln(s);
  writeln('Result:');
  for i := 1 to length(s) do
    begin
      write(s[i]);
      if odd(i) then write(s[i])
    end;
  readln
end.

@Puporev · 11.03.2014, 07:07

Можно так

Pascal

var s:string;
    i:byte;
begin
writeln('Ââåäèòå ñòðîêó');
read(s);
for i:=length(s) downto 1 do
if odd(i) then insert(s[i],s,i+1);
writeln(s)
end.

@hom4ka 0 / 0 / 1 Регистрация: 10.11.2013 Сообщений: 78
		1
	Обработка строковых данных в языке программирования Pascal 10.03.2014, 23:07. Показов 1145. Ответов 2 Метки нет (Все метки) Ваша программа должна в заданном тексте удвоить каждый символ, стоящий на нечетном месте. 0

Опции темы

Обработка строковых данных в языке программирования Pascal

Решение