Написать программу, которая отделит n символов во введенном тексте отделите знаком «!» — Pascal(Паскаль)

uses crt;
var s:string;
    n,i:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
repeat
write('Сколько символов отделить? n=');
readln(n);
if n>length(s) then writeln('В строке нет ',n,' символов!, Повторите ввод.');
until n in [1..length(s)];
insert('!',s,n+1);
write(s);
readln
end.

Leave a Comment

− 1 = 5