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

@d@niyar · Регистрация: 19.10.2011

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

@КонецСвета · 14.12.2011, 18:56

Pascal

uses crt;
var s: string;
    i,p: integer;
begin
write('s=');
readln(s);
p:=pos('.',s);
for i:=p to length(s) do
    if s[i]='3' then s[i]:='+';
for i:=p downto 1 do
    if s[i]=',' then
       delete(s,i,1);
write('s=',s);
readkey
end.

@d@niyar 0 / 0 / 0 Регистрация: 19.10.2011 Сообщений: 50
		1
	Преобразовать строку, удалив из нее все запятые, предшествующие первой точке 14.12.2011, 18:50. Просмотров 1295. Ответов 1 Метки нет (Все метки) Дана строка, среди символов которой есть хотя бы одна точка. Преобразовать ее, удалив из нее все запятые, предшествующие первой точки , и заменив знаком + все цифры 3,встречающиеся после первой точки 0

Опции темы

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

Решение