Составить из имеющихся четных цифр максимальное число, читающееся одинаково слева направо и наоборот - Pascal

  1. На вход подается набор символов, оканчивающийся точкой. Количество символов не превышает 200. Составить из имеющихся в тексте четных цифр максимальное число, которое читается одинаково как слева направо, так и справа налево. Все цифры можно не использовать; незначащих нулей в числе не должно быть. Если требуемое число составить нельзя, то вывести строку «NO»; если можно, то в первой строке вывести строку «YES», а во второй — строку, изображающую найденное число.

textual

Код:

var s,s1:string;
    c:char;
    i,k,j:byte;
begin
readln(s);
s1:='';
for c:='0' to '9' do
if ord(c)mod 2=0 then
 begin
  k:=0;
  for i:=1 to length(s) do
  if s[i]=c then k:=k+1;
  writeln(c,'=',k);
  if k>0 then
   begin
    if s1='' then  for j:=1 to k do s1:=s1+c
    else if(length(s1)=1)and(k=1)and(c>s1[1])then s1:=c
    else for j:=1 to k div 2 do
     begin
      insert(c,s1,1);
      insert(c,s1,length(s)+1);
     end;
   end;
 end;
if s1='' then write('NO')
else write(s1);
end.

Похожие ответы
  1. 1)Дана строка-предложение, содержащая избыточные пробелы. Преобразовать ее так, чтобы между словами был ровно один пробел.можно делать делать как одна строка матрицы 2)Заданный одномерный массив отсортировать по возрастанию цифры десятков каждого элемента. Сортировка включением. 3)Написать программу с рекурсивной функцией, вычисляющей произведение элементов одномерного массива.

  1. Помогите пожалуйста написать программу, которая вычисляет сумму, произведение и средне арифметическое последовательности чисел вводимых пользователем с клавиатуры заканчивающихся нулем. Выполнить с помощью оператора While.

  1. Доброго дня! Помогите тут задача 5 что то не получается Вот что я надумал

  1. Даны три натуральных числа А, B, C, обозначающие число, месяц и год. Найти порядковый номер даты, начав отсчет с начала года

  1. Вот написал код к этой задаче Дана вещественная матрица A из N строк и столбов (N<=20 вводиться) Найти номер первой строки матрицы ,все элементы которой упорядочены по возрастанию.Если такая строка есть ,то найти и вывести максимальный элемент матрицы, в противном случае найти колво отрицательныйх элементов до первого нулевого элемента на побочной диагонали. Но он не работает помогите пожалуйста исправить/переделать код.

  1. можете помочь решить? а то я точно не сделаю ._.

  1. даны два целых числа А и В(А больше В)вывести в порядке убывания все целые чирла расположенные между А и В (не включая числа А и В) а также количество N этих чисел

  1. 1. Составить программу вывчисляющую сумму всех элементов одномерного массива из 20 чисел, которые лежат в интервале от 10 до 20. Массив заполнять случайными числами. 2. Написать программу-игру угадай число, которая случайно выбирает число от 1 до 10. Требуется угадать это число. Использовать цикл Repeat и While. После каждого ответа выводить угадано ли число или нет.

  1. Сформировать новый массив С, содержащий элементы с нечетными значениями, присутствующие в обоих массивах А и В.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика