Ответы
Ответ дал:
0
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.
не уверена,но по-моему так
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.
не уверена,но по-моему так
Ответ дал:
0
2 var 3 s:string; 4 begin 5 readln(s); 6 while pos('с',s)>0 do delete(s,pos('с',s),1); 7writeln(s); 8 end.это точно
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад