Вопрос от посетителя:
Составить алгоритм , вычеркивающий из данного слова все буквы “с”
Илюха отвечает:
1
2 var
3 s:string;
4 begin
5 readln(s);
6 while pos(‘с’,s)>0 do delete(s,pos(‘с’,s),1);
7 writeln(s);
8 end.
не уверена,но по-моему так
Составить алгоритм , вычеркивающий из данного слова все буквы “с”
1
2 var
3 s:string;
4 begin
5 readln(s);
6 while pos(‘с’,s)>0 do delete(s,pos(‘с’,s),1);
7 writeln(s);
8 end.
не уверена,но по-моему так