Получить новое число, удалив из заданного все цифры, кратные 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.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Создается переменная s типа String, которая будет использоваться для чтения строки из ввода пользователя.
  2. С помощью функции ReadLn(s) происходит чтение строки из ввода пользователя и сохранение ее в переменную s.
  3. Затем происходит цикл for, который начинается с индекса Length(s) и продолжается до 1.
  4. Внутри цикла происходит проверка каждого символа в строке s. Если символ равен одному из чисел 0, 3, 6 или 9, то он удаляется из строки с помощью функции Delete(s,i,1).
  5. После завершения цикла, измененная строка записывается на экран с помощью функции WriteLn(s). Таким образом, данный код позволяет удалить из заданной строки все цифры, кратные 3.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.727 из 5
Похожие ответы