Как сделать так, чтобы после определенного символа в строке программа удалила остаток

@kurah · Регистрация: 19.09.2017

Author24 — интернет-сервис помощи студентам

Pascal

var 
 
f1, f2: text; 
CH, chr: char; 
 
begin 
if paramcount <> 0 then begin 
write('Vvedite simvol ch='); 
ch :=paramstr(1)[1]; 
assign(f1, paramstr(2)); 
reset(f1); 
assign(f2, paramstr(3)); 
rewrite(f2); 
 
while not eof(f1) do 
begin 
Read(f1, chr); 
 
Write(f2, chr); 
if chr = ch then write(f2, ' '); 
 
end; 
readln(f1); 
writeln(f2); 
close(f2); 
end; 
end.

@Puporev · 04.12.2017, 10:13

Pascal

while not eof(f1) do
 begin
  readln(f1,s);//s:string
  if pos(ch,s)>0 then s:=copy(s,1,pos(ch,s));
  writeln(f2,s);
 end;
close(f1);
close(f2);
end;

	04.12.2017, 10:13