Преобразовать строку, удалив из неё все запятые, предшествующие первой точке

@Loc doc · Регистрация: 17.10.2010

Дана строка символов,среди которых есть хотя бы одна точка.Преобразовать строку,удалив из неё все запятые ,предшествующие первой точке,и заменив знаком "+"все цифры "5",встречающиеся после первой точки.

@pryda · 13.11.2010, 15:52

Pascal

var s:string;
    i,n:integer;
begin
writeln('Введите строку');
readln(s);
n:=pos('.',s);
for i:=1 to n-1 do
if s[i]=',' then delete(s,i,1);
for i:=n+1 to length(s) do
if s[i]='5' then s[i]:='+';
writeln(s);
readln;
end.

@Loc doc · 14.11.2010, 10:23 **[ТС]**

блок схему на рисуйте!!!!плеасе

@Loc doc 1 / 1 / 0 Регистрация: 17.10.2010 Сообщений: 89
		1
	Преобразовать строку, удалив из неё все запятые, предшествующие первой точке 13.11.2010, 14:15. Просмотров 1794. Ответов 2 Метки нет (Все метки) Дана строка символов,среди которых есть хотя бы одна точка.Преобразовать строку,удалив из неё все запятые ,предшествующие первой точке,и заменив знаком "+"все цифры "5",встречающиеся после первой точки. 0

@Loc doc 1 / 1 / 0 Регистрация: 17.10.2010 Сообщений: 89
	14.11.2010, 10:23 [ТС]	3
	блок схему на рисуйте!!!!плеасе 0

Опции темы

Преобразовать строку, удалив из неё все запятые, предшествующие первой точке

Решение