В строке произвольной длины удалить все «+», если за ними следуют не цифры

@Ляззат · Регистрация: 05.04.2012

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

Написать программу, которая строке произвольной длины удалят все «+», если за ними следуют не цифры.

@Puporev · 06.04.2012, 06:26

Pascal

uses crt;
const cf=['0'..'9'];
var s:string;
    i:byte;
begin
writeln('Введите строку, содеожащую в том числе цифры и знак +');
read(s);
for i:=length(s)-1 downto 1 do
if (s[i]='+')and not(s[i+1] in cf)then delete(s,i,1);
write(s);
end.

@Ляззат 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 12
		1
	В строке произвольной длины удалить все «+», если за ними следуют не цифры 05.04.2012, 22:10. Показов 1478. Ответов 1 Метки нет (Все метки) Написать программу, которая строке произвольной длины удалят все «+», если за ними следуют не цифры. 0

Опции темы

В строке произвольной длины удалить все «+», если за ними следуют не цифры

Решение