люди пожалуйста помогите. очень нун . решить задачу в паскале ( ...
люди пожалуйста помогите. очень нун . решить задачу в паскале ( удалить все "," из строки и подсчитать количество символов "F", стоящих после "+", и количество символов "F", стоящих после "-" (отдельно)
Есть ответ
17.12.2022
107
Ответ
Вот после '+'
Program Pr1;uses crt;var stroka:string; i,b:integer;Beginclrscr;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;Beginclrscr;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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
