Ответы на вопрос:
Вариант с процедурой delete 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 результат: таркан блок-схемы всех вариантов находятся во вложениях
Популярно: Информатика
-
rokossovskaya21.03.2023 13:59
-
marinastolarova05.03.2020 07:31
-
Shock228ru17.06.2021 00:26
-
МилаКу15.06.2022 21:22
-
ressoli44227.09.2021 02:19
-
blond4818.03.2020 08:41
-
11Аракся1111.06.2022 15:21
-
cat777415.12.2021 10:20
-
Веттуня25.12.2020 05:37
-
Treed126.12.2022 12:52