// PascalABC.Net 3.0, сборка 1066 var s,s1:string; i:integer; a:char; begin Write('Введите натуральное число любой длины :'); Readln(s); Write('Введите цифру, которую надо удалить: '); Readln(a); s1:=''; for i:=1 to Length(s) do if s[i]<>a then s1:=s1+s[i]; Writeln('Результат: ',s1) end.
Тестовый прогон: Введите натуральное число любой длины :3141592653589793 Введите цифру, которую надо удалить: 5 Результат: 3141926389793
2. Современное решение (так в школе почему-то не учат)
// PascalABC.Net 3.0, сборка 1066 begin var s:=ReadString('Введите натуральное число любой длины :'); var a:=ReadChar('Введите цифру, которую надо удалить: '); Write('Результат: ',s.Replace(a,'')); end.
4) 0 1 2 3 4 5 4 3 2 1 0
Объяснение:
Заполнение массива:
для i от 0 до 10 выполнить a[i] = i
i = 0 a[0] = 0
i = 1 a[1] = 1
i = 2 a[2] = 2
Т.е. значение элемента массива равно индексу элемента.
Первоначальный массив выглядит так: 0 1 2 3 4 5 6 7 8 9 10
Изменение массива:
для i от 0 до 10 выполнить
Действия в цикле:
1) a[10-i] = a[i]
2) a[i] = a[10-i]
i = 0
Действия в цикле:
1) a[10-0] = a[0] (a[i] значение элемента берём из первоначального массива) a[10] = 0
2) a[0] = a[10-0] a[0] = a[10] a[0] = 0
i = 1
Действия в цикле:
1) a[10-1] = a[1] (a[i] значение элемента берём из первоначального массива) a[9] = 1
2) a[1] = a[10-1] a[1] = a[9] a[1] = 1
i = 2
Действия в цикле:
1) a[10-2] = a[2] (a[i] значение элемента берём из первоначального массива) a[8] = 2
2) a[2] = a[10-2] a[2] = a[8] a[2] = 2
i = 3
Действия в цикле:
1) a[10-3] = a[3] (a[i] значение элемента берём из первоначального массива) a[7] = 3
2) a[3] = a[10-3] a[3] = a[7] a[3] = 3
i = 4
Действия в цикле:
1) a[10-4] = a[4] (a[i] значение элемента берём из первоначального массива) a[6] = 4
2) a[4] = a[10-4] a[4] = a[6] a[4] = 4
i = 5
Действия в цикле:
1) a[10-5] = a[5] (a[i] значение элемента берём из первоначального массива) a[5] = 5
2) a[5] = a[10-5] a[5] = a[5] a[5] = 5
Промежуточный массив выглядит так: 0 1 2 3 4 5 4 3 2 1 0
i = 6
Действия в цикле:
1) a[10-6] = a[6] (a[i] значение элемента берём из промежуточного массива) a[4] = 4
2) a[6] = a[10-6] a[6] = a[4] a[6] = 4
i = 7
Действия в цикле:
1) a[10-7] = a[7] (a[i] значение элемента берём из промежуточного массива) a[3] = 3
2) a[7] = a[10-7] a[7] = a[3] a[7] = 3
i = 8
Действия в цикле:
1) a[10-8] = a[8] (a[i] значение элемента берём из промежуточного массива) a[2] = 2
2) a[8] = a[10-8] a[8] = a[2] a[8] = 2
i = 9
Действия в цикле:
1) a[10-9] = a[9] (a[i] значение элемента берём из промежуточного массива) a[1] = 1
2) a[9] = a[10-9] a[9] = a[1] a[9] = 1
i = 10
Действия в цикле:
1) a[10-10] = a[10] (a[i] значение элемента берём из промежуточного массива) a[0] = 0
2) a[10] = a[10-10] a[10] = a[0] a[10] = 0
Окончательный массив выглядит так: 0 1 2 3 4 5 4 3 2 1 0