Как изменяются числа в каждом ряду и продолжите каждый ряд дописав еще по 4 числа. 16 12 15 11 14 10 16 17 18 26 27 28 36 37 38 27 34 41 48 56 48 40 112 122 132 212 222 232
16 12 15 11 14 10 - 13 9 12 8 в этом ряду чередуясь через одну цифру отнимается по 1 от первых двух 16 17 18 26 27 28 36 37 38 - 46 47 48 56 тут ряд единиц 6-7-8, следом ряд десятков прибавляется по 1 27 34 41 48 - 55 62 69 76 тут плюс 7 56 48 40 - 32 24 16 8 тут минус 8 112 122 132 212 222 232 - 312 322 332 412 здесь ряд сотен изменяется, а десятки и единицы чередуются 12-22-32
// 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.
Проще всего складывать в столбик как обычные десятичные числа, но если в сумме число получится больше 8 (система восмиричная), то мы отнимаем 8, смотрим: меньше ли получившийся остаток 8, если нет, то снова отнимаем восемь и тогда записываем остаток, а в "ум" запишем число отнятых восьмерок
574+467=1263 (все числа в восьмиричной системе счисления)
так, складывая 4 и 7, получаем 11, что больше 8, поэтому отняв 8, получим цифру 3, которую и записываем как последнюю цифру числа (3 пишем, 1 в уме), далее складываем 6 и 7 и не забываем про 1, потому что в раз мы отняли всего одну восьмерку, получаем 14, но записываем только 6, а 1 в уме, затем 5, 4 и 1 - 2 пишем, 1 в уме, далее просто приписываем единицу, получаем 1263
P.S. несмотря на то, что кажется сложно, это немногим отличается от десятичной системы сложения в столбик
в этом ряду чередуясь через одну цифру отнимается по 1 от первых двух
16 17 18 26 27 28 36 37 38 - 46 47 48 56
тут ряд единиц 6-7-8, следом ряд десятков прибавляется по 1
27 34 41 48 - 55 62 69 76
тут плюс 7
56 48 40 - 32 24 16 8
тут минус 8
112 122 132 212 222 232 - 312 322 332 412
здесь ряд сотен изменяется, а десятки и единицы чередуются 12-22-32