Регистрация
Бозя1
06.12.2021 23:05
Информатика
Есть ответ 👍

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

146
268
Посмотреть ответы 2

Ответы на вопрос:

даниил851
даниил851
4,4(35 оценок)

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 симв.

123456471
123456471
4,8(29 оценок)

изображаемый код с номером 55

Популярно: Информатика