Паскаль. текстовые файлы. из текста расположенного в файле исключить группы символов расположенных между круглыми скобками
263
407
Ответы на вопрос:
Var a: string; b,c,v,s: byte; begin b: =0; c: =0; writeln('введите строчку'); readln (a); repeat inc (b); if (a[b]=' ') or (b=length(a)) then begin inc (c); if (c=1) then v: =b; if c=2 then begin if (b=length(a)) then delete(a,v,b-v+1) else delete(a,v,b-v); b: =b-(b-v); c: =0; end; end else continue; until b> length(a) ; writeln(a); readln; end. это вот программа по подсчёту пробелов. эту давно писал, а сейчас занят, поэтому только идею
Популярно: Информатика
-
ANONIM23506330.12.2020 08:43
-
Valeria1235177831.07.2022 22:36
-
WFCPDF29.04.2022 10:39
-
kleep9007катя21.05.2023 04:12
-
YAGA00913.03.2023 18:26
-
ketti33628.06.2022 17:18
-
deniskohan5914.12.2021 08:11
-
юлия162815.09.2021 13:59
-
mintotea27.02.2020 06:48
-
лизокумнок06.09.2021 03:32