uses crt;
var s:string;
i,j:word;
begin
readln(s);
j:=pos('+',s);
if j<>0 then
for i:=j+1 to length(s) do
if (ord(s)>=48) and (ord(s)<=57) then s:='-';
writeln(s);
readln;
end.
Задача по строкам.
моего мозгового ресурса не хватает на то что бы понять каким образом нужно учинять этот поиск цифр.сравнение каждого элемента с 10-ю символами цифр поочерёдно?
[COLOR="Silver"]пардон за примитив.[/COLOR]
.......................
isdigit(char a).
не забывай писать язык, иначе буду выдавать нарушения, т.к. это причина флуда типа: "а какой язык?", и т.д.
2Zorkus
не надо пожалуйста примеров с С, когда речь идет о Паскале или любом другом языке.