Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Написать модуль, содержащий тригонометрическую функцию секанс http://www.cyberforum.ru/pascal/thread2164718.html
Нужна помощь! Написать модуль, содержащий тригонометрическую функцию секанс sec. Подключить модуль к программе, которая использует данную функцию.
Pascal Определить, является ли некоторая квадратная матрица 10-го порядка симметричной относительно главной диагонали Определить, является ли некоторая квадратная матрица 10-го порядка симметричной относительно главной диагонали. http://www.cyberforum.ru/pascal/thread2164661.html
Среднее арифметическое наибольших по абсолютной величине элементов каждого столбца матрицы под главной диагональю Pascal
Среднее арифметическое наибольших, по абсолютной величине, элементов каждого столбца матрицы под главной диагональю Плиз помогите, мучаюсь целый день
Pascal В символьной матрице найти гласные буквы, которые присутствуют во всех строках
Строки, записи, множества. В заданном двумерном символьном массиве, найти все гласные буквы, которые присутствуют во всех строках матрицы.
Pascal Определить, имеется ли составное двузначное число ниже главной и побочной диагоналей матрицы http://www.cyberforum.ru/pascal/thread2164496.html
Дана целочисленная квадратная матрица. Определите, имеется ли среди элементов, расположенных ниже ее главной и побочной диагоналей хотя бы одно составное двузначное число
Pascal Найти сумму компонент с четным значением и записать в новый файл те из них, значения которых превышают 4 Имеется код для задания: Дан файл целых чисел. Найти сумму компонент с четным значением и записать в новый файл те из них, значения которых превышают 4. Код создан для Turbo Pascal, нужно изменить,... подробнее
user1357
0 / 0 / 0
Регистрация: 06.11.2017
Сообщений: 12
11.01.2018, 16:36  [ТС] 0

Написать программу, которая будет составлять число, которое читается одинаково как слева направо, так и справа налево

11.01.2018, 16:36. Просмотров 805. Ответов 6
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a:array[0..9] of integer;
  i,j,k:integer;
  s:string;
  c:char;
begin
  repeat
    read(c);
    inc(a[ord(c)-48]);
  until c=#48;
  for i:=9 downto 1 do begin
    for j:=1 to a[i] div 2 do s:=s+chr(i+48);
    if (a[i] mod 2=1) and (k=0) then k:=i;
  end;
  s:=s+chr(k+48);
  for i:=length(s)-1 downto 1 do s:=s+s[i];
  writeln(s);
end.
Можете описать алгоритм? Пока только начинаю работу с символами в паскале.

Вернуться к обсуждению:
Написать программу, которая будет составлять число, которое читается одинаково как слева направо, так и справа налево
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2018, 16:36

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

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

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

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