Получить новое число, удалив из заданного все цифры, кратные 3 - Pascal ABC (13163)
Формулировка задачи:
Дана строка символов, содержащая не более 255 цифр. Необходимо получить новое число, удалив из заданного все цифры, кратные 3.
Решение задачи: «Получить новое число, удалив из заданного все цифры, кратные 3»
textual
Листинг программы
var s: String; i: Integer; begin ReadLn(s); for i:=Length(s) downto 1 do if s[i] in ['0','3','6','9'] then Delete(s,i,1); WriteLn(s); end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Создается переменная
s
типаString
, которая будет использоваться для чтения строки из ввода пользователя. - С помощью функции
ReadLn(s)
происходит чтение строки из ввода пользователя и сохранение ее в переменнуюs
. - Затем происходит цикл
for
, который начинается с индексаLength(s)
и продолжается до 1. - Внутри цикла происходит проверка каждого символа в строке
s
. Если символ равен одному из чисел0
,3
,6
или9
, то он удаляется из строки с помощью функцииDelete(s,i,1)
. - После завершения цикла, измененная строка записывается на экран с помощью функции
WriteLn(s)
. Таким образом, данный код позволяет удалить из заданной строки все цифры, кратные 3.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д