В заданном предложении удалить все запятые. Напечатать исходный и преобразованный тексты, а также число удаленных символов. - Turbo Pascal
Формулировка задачи:
В заданном предложении удалить все запятые. Напечатать исходный и преобразованный тексты, а также число удаленных символов.
Решение задачи: «В заданном предложении удалить все запятые. Напечатать исходный и преобразованный тексты, а также число удаленных символов.»
textual
Листинг программы
var i,k: integer; str: string; begin write('Строка: '); readln(str); k:=0; for i:=1 to length(str) do if (str[i] = ',') then begin inc(k); delete(str,i,1); dec(i); end; writeln('Символов = ',k); writeln('Преобразованная строка = ',str); end.