В заданном предложении удалить все запятые. Напечатать исходный и преобразованный тексты, а также число удаленных символов. - 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.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы