Задание:
Составить алгоритм, вычеркивающий из данного слова все буквы «с»
Решение:
12 var3 s: string; 4 begin5 readln (s); 6 while pos ('с',s) >0 do delete (s,pos ('с',s) ,1); 7 writeln (s); 8 end. Не уверена, но по-моему так
Знаете другой ответ?
Составить алгоритм, вычеркивающий из данного слова все буквы «с»
12 var3 s: string; 4 begin5 readln (s); 6 while pos ('с',s) >0 do delete (s,pos ('с',s) ,1); 7 writeln (s); 8 end. Не уверена, но по-моему так
Знаете другой ответ?