Question

Задан произвольный текст. Удалить все запятые и определить на сколько символов уменьшить я текст( паскаль, подробно, через write, read, delete и тп)

Answer 1

var s:string;

l:integer;

begin

writeln('Введите текст:');

readln(s);

l:=length(s);

while pos(',',s)>0 do delete(s,pos(',',s),1);

writeln(s);

writeln('Текст уменьшился на ',l-length(s),' симв.');

end.

Пример:

Введите текст:

Раз,два,три,четыре,пять. Вышел зайчик.

Раздватричетырепять. Вышел зайчик.

Текст уменьшился на 4 симв.

Answer 2

Пример кода на языке Паскаль, который удаляет все запятые из произвольного текста и определяет, на сколько символов уменьшится текст:

arduinoCopy code
program remove_commas;

var
  input_text, output_text: string;
  i, len, removed_count: integer;

begin
  writeln('Enter text:');
  readln(input_text);

  len := length(input_text);
  removed_count := 0;

  for i := 1 to len do
  begin
    if input_text[i] <> ',' then
    begin
      output_text := output_text + input_text[i];
    end
    else
    begin
      removed_count := removed_count + 1;
    end;
  end;

  writeln('Text with commas:', input_text);
  writeln('Text without commas:', output_text);
  writeln('Number of commas removed:', removed_count);
  writeln('Number of characters removed:', removed_count);
end.

В этом коде мы используем две строки input_text и output_text. Мы читаем входной текст с помощью readln и сохраняем его в input_text. Затем мы проходим через каждый символ в input_text и проверяем, является ли он запятой. Если символ не является запятой, мы добавляем его в output_text. Если символ является запятой, мы увеличиваем счетчик удаленных запятых на 1.

После того, как мы прошли через каждый символ в input_text, мы выводим на экран исходный текст, текст без запятых, количество удаленных запятых и количество символов, которые мы удалили, которое равно количеству удаленных запятых.