Дана строка (прочитать из файла). удалить из неё все знаки препинания (. ; : , ! результат вывести на экран.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

xodocovp0a3a7

23.04.2021 17:33

Что значит перевод на математический язык?что туда писать? (эксель)...

di23di

27.10.2022 22:44

Почему при разработке алгоритма обязательно проводить трассировку? ...

toby000

20.10.2022 16:54

Набор связанных гиперссылками веб - страниц...

kolyaan321

05.08.2022 03:24

задание легкое, а я туплю...

sstadina9

25.01.2020 06:24

програма ,що завантаженна в оперативну пам’ять і може виконуватися центральним процесором називається?...

giulia250305

29.05.2023 04:20

Буквами зашифрованы цифры четверичной системы счисления (с основанием 4). Определите все эти цифры....

lnatahozqc8g

10.02.2023 16:35

У зовнішній пам’яті комп’ютера дані зберігаються у форматі?...

20bam05buk

17.02.2020 22:15

¬(xyz)∨¬(y∨¬z)∨x¬yz∨¬(x∨y∨¬z) Упростить логическое выражение...

vvnels

03.01.2020 13:40

Найдите значение выражения при m3+m4/m4-m6. при m= -4...

Vika4634

16.06.2020 11:28

Изложение 1)вот тут-то и появился лис. – (2)3дравствуй, – сказал он. – (3), – вежливо ответил маленький принц. – (4)кто ты? (5)какой ты красивый! – (6)я – лис, – сказал...

Ответ:

astakastaj

25.08.2020 08:24

Var f: text;
s,st: string;
i: integer;
begin
   st:='.:;,!?';
   assign (f,'C:\input.txt');
reset (f);
read (f,s);
close(f);
writeln('считана строка: ',s);
i:=1;
repeat
if pos(s[i],st)>0 then
   begin
delete(s,i,1);
i:=i-1;
end;
   i:=i+1;
until i>length(s);
writeln('новая строка: ',s);
readln;
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку