паскаль. текстовые файлы. из текста расположенного в файле исключить группы симв...

July 2022 1 15 Report

паскаль. текстовые файлы. из текста расположенного в файле исключить группы символов расположенных между круглыми скобками

Answers & Comments

vasiliy722001 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.
Это вот программа по подсчёту пробелов. Эту давно писал, а сейчас занят, поэтому даю только идею

0 votes Thanks 0

paskal v proizvolno zadannom odnomernom massive opredelit 4 elementa s naibo

Answer

Answers & Comments

paskal v proizvolno zadannom odnomernom massive opredelit 4 elementa s naibo

рекомендуемые вопросы

Helpful Links

Helpful Social