Главная часть системного программного обеспечения, без которой совместное функционирование всех устройств компьютера, а также предоставление пользователю доступа к ресурсам компьютера будет невозможным, называется
var s:string; k:integer; begin Write('Введите слово: '); Readln(s); Write('Какую по порядку букву удалить? '); Read(k); Delete(s,k,1); Writeln('Результат: ',s) end.
Вариант с функцией Copy
var s:string; k,n:integer; begin Write('Введите слово: '); Readln(s); Write('Какую по порядку букву удалить? '); Read(k); n:=Length(s); s:=Copy(s,1,k-1)+Copy(s,k+1,n-k); Writeln('Результат: ',s) end.
Вариант с циклами
var s,s1:string; k,i,n:integer; begin Write('Введите слово: '); Readln(s); Write('Какую по порядку букву удалить? '); Read(k); n:=Length(s); s1:=''; for i:=1 to k-1 do s1:=s1+s[i]; for i:=k+1 to n do s1:=s1+s[i]; Writeln('Результат: ',s1) end.
Тестовое решение (одинаково для всех вариантов): Введите слово: Таракан Какую по порядку букву удалить? 4 Результат: Таркан
Операционная система (ОС)
Примеры операционных систем:
Для ПК:
Microsoft Windows
Дистрибутивы Linux (их очень много: Fedora, Ubuntu, Linux Mint, Debian, OpenSUSE, Puppy Linux и другие; посмотри на DistroWatch'е)
BSD
macOS
OS/2
Для мобильных устройств:
Android
iOS
Windows Mobile
Symbian
Palm OS