Var a:string; i,n:integer; begin write('Введите слово '); readln(a); n:=length(a); writeln('Введите номер буквы '); readln(i); delete(a,i,1); writeln(a); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
