Заменить все символы "?" точками

@MincE · Регистрация: 14.11.2013

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

Дана символьная строка. Заменить все символы "?" точками, кроме последнего встречающегося в строке, и вывести полученную строку.

@Puporev · 17.11.2013, 20:12

Pascal

1 2	for i:=1 to length(s)-1 do if s[i]='?' then s[i]:='.';

@ildwine · 17.11.2013, 20:28

Pascal

var
  s : string;
  k, i : byte;
begin
  write('строка: ');
  readln(s);
  k := 0;
  for i := length(s) downto 1 do
  begin
    if s[i] = '?' then inc(k);
    if (s[i] = '?') and (k > 1) then s[i] := '.'
  end;
  writeln('новая строка: ', s)
end.

Добавлено через 4 минуты
Puporev, думаю просто не обязательно последний символ "?" стоит в конце строки.

@MincE 0 / 0 / 1 Регистрация: 14.11.2013 Сообщений: 27
		1
	Заменить все символы "?" точками 17.11.2013, 19:10. Показов 2295. Ответов 2 Метки нет (Все метки) Дана символьная строка. Заменить все символы "?" точками, кроме последнего встречающегося в строке, и вывести полученную строку. 0

	17.11.2013, 20:28

Заменить все символы "?" точками

Решение