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

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

↓

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

сармановафакизат

14.11.2020 17:32

Turbo pascal составить программу проверяющую является ли последовательность из 10 целых чисел вводимых с клавиатуры возрастающей, программу составить с оператором repeat...

vladimirnvrskp08453

13.04.2023 05:08

Задан массив a1, a2, . . , an из целых чисел. выведите его в обратном порядке....

karamendes1p06wtk

13.04.2023 05:08

Задан массив a1, a2, …, an из целых чисел. вычислите их сумму....

Аня270917

29.10.2022 04:52

Какой блок не используется в разветвляющимся вычислительном процессе?...

novoselova959

09.10.2020 20:49

по информатике,При опросе учеников выяснилось что они из сладостей любят торт,кекс,и пирог.1уч-любит все три сладости,2уч-любят одновременно пирог и кекс,3уч-любят торт и кекс,4...

dbblyadbblya

08.10.2020 21:41

Задание 1 У исполнителя Бета две команды, которым присвоены номера: 1. прибавь 2; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Бета увеличивает...

778392

23.02.2023 17:23

плжст на pascal или с/с++ 1. Вычислите сумму 2+4+6...+548; 2. Дано натуральное число N. Найти все його делители...

berezinaanna199

02.01.2023 02:16

PYTHON язык.Известны оценки по физике каждого из 20 учеников класса. Определить среднюю оценку. Вывести на экран результат ОЧЕНЬ...

маринька

26.07.2022 10:16

Какие из перечисленных функций отображены кнопками состояния? Укажите правильный вариант ответа: вырезать, вставить, закрыть, копировать свернуть, копиовать, вставить свернуть,...

danilcs02

21.12.2020 09:26

Алгоритмнің қадамдарыотинем...

Ответ:

DalinaSisters

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 Оформи подписку