люди пожалуйста помогите. очень нун . решить задачу в паскале ( удалить все "," из строки...

Question

люди пожалуйста помогите. очень нун . решить задачу в паскале ( удалить все "," из строки и подсчитать количество символов "F", стоящих после "+", и количество символов "F", стоящих после "-" (отдельно)

Answer 1

Вот после '+'

 

Program Pr1;
uses crt;
var stroka:string;
i,b:integer;
Begin
clrscr;
b:=0;
writeln('Vvedite Stroku');
readln(stroka);
i:=1;
for i:=1 to length(stroka) do if stroka[i]=',' then delete(stroka,i,1);
writeln(stroka);
for i:=1 to length(stroka) do if stroka[i]='+' then begin
delete(stroka,i,1);
break;
end;
for i:=1 to length(stroka) do if stroka[i]='F' then b:=b+1;
writeln('Posle + ',b);
end.

 

 

Вот отдельно после "-" 

 

 

 

 

Program Pr1;
uses crt;
var stroka:string;
i,b:integer;
Begin
clrscr;
b:=0;
writeln('Vvedite Stroku');
readln(stroka);
i:=1;
for i:=1 to length(stroka) do if stroka[i]=',' then delete(stroka,i,1);
writeln(stroka);
for i:=1 to length(stroka) do if stroka[i]='-' then begin
delete(stroka,i,1);
break;
end;
for i:=1 to length(stroka) do if stroka[i]='F' then b:=b+1;
writeln('Posle - ',b);
end.