Напишите названия продуктов.которые можно создовать и продвигать в соцеальных сетях
254
383
Ответы на вопрос:
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 симв.
Популярно: Информатика
-
JuliaVolk0517.10.2022 06:32
-
СофияПодставкина12.11.2022 04:05
-
mamakarina06.11.2021 13:06
-
Piragovicch03.09.2022 08:25
-
zhan120509.10.2022 14:05
-
дeд13.02.2020 06:24
-
Ульяна12200405.06.2021 07:21
-
maximyakimov20p00ywe28.02.2022 07:53
-
dina0825414.04.2023 13:50
-
сюрприз2345678908.04.2020 00:48