Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Hao_fox
0 / 0 / 0
Регистрация: 07.01.2017
Сообщений: 1
1

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

07.01.2017, 18:28. Просмотров 876. Ответов 1

На вход подается набор символов, оканчивающийся точкой. Количество символов не превышает 200.
Составить из имеющихся в тексте четных цифр максимальное число, которое читается одинаково как
слева направо, так и справа налево. Все цифры можно не использовать; незначащих нулей в числе не
должно быть. Если требуемое число составить нельзя, то вывести строку «NO»; если можно, то в
первой строке вывести строку «YES», а во второй — строку, изображающую найденное число.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2017, 18:28
Ответы с готовыми решениями:

Найти в файле f все слова, слева направо и наоборот читаются одинаково и составить из них новый файл q
Найти в файле f все слова, слева направо и наоборот читаются одинаково и составить из них новый...

Написать программу, которая будет составлять число, которое читается одинаково как слева направо, так и справа налево
Текст задачи: "На вход программе подается набор символов, заканчивающийся символом 0 (в программе...

Определить является ли заданный текст симметричным (читается одинаково слева направо и справа налево)
Дан текст из 20 символов. Определить является ли он симметричным (читается одинаково слева направо...

Слова, одинаково читающиеся справа налево и слева направо
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Составить программу...

Проверить, будет ли число читаться одинаково справа налево и слева направо
Символьная строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и...

1
Puporev
Модератор
56341 / 43120 / 29826
Регистрация: 18.05.2008
Сообщений: 102,475
08.01.2017, 13:12 2
Лучший ответ Сообщение было отмечено Hao_fox как решение

Решение

Попробуйте так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2017, 13:12

Установить, что данное четырехзначное число читается одинаково слева направо и справа налево
Проверить истинность высказывания: "Данное четырехзначное число читается одинаково слева направо и...

Проверить будет ли читаться введенное предложение одинаково справа налево и слева направо
проверить будет ли читаться введеное предложение одинаково справа налево и слева направо.

Натуральное число, состоящее из трёх цифр, с возрастающими слева направо цифрами, являющееся полным квадратом
Найти натуральное число, состоящее из трёх цифр, с возрастающими слева направо цифрами, являющееся...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru