Дана строка символов удалить из строки все звездочки

@Kos2an · Регистрация: 19.05.2012

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

@TheSN · 31.05.2012, 11:26

Pascal

var
  s: string;
  i: integer;
 
begin
  writeln('Введите строку со звездочками:');
  readln(s);
  for i := length(s) downto 1 do
    if s[i] = '*' then delete(s, i, 1);
  writeln(s);
  readln
end.

@Kos2an 0 / 0 / 2 Регистрация: 19.05.2012 Сообщений: 40
		1
	Дана строка символов удалить из строки все звездочки 31.05.2012, 10:24. Показов 3352. Ответов 1 Метки нет (Все метки) Дана строка символов удалить из строки все звездочки 0

Опции темы

Дана строка символов удалить из строки все звездочки

Решение