Uses crt; var s: string; n,q :integer; begin while n=0 do begin writeln ('Введите строку '); readln (s); n:=length(s); clrscr; end; writeln('сколько символов нужно удалить из ',s,' ?'); read (q); if q>n then begin writeln ('символов для удаления больше, чем существует'); s:=''; end else delete (s,((n+1)-q),q+1); write (s); end.
P.s. Программа написана на языке Pascal ABC.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
