Форум программистов, компьютерный форум, киберфорум
Наши страницы
Другие языки программирования
Войти
Регистрация
Восстановить пароль
 
Михаил8888
0 / 0 / 2
Регистрация: 04.05.2017
Сообщений: 32
#1

[КуМир]Найти в массиве A все числа-перевертыши, которые читаются одинаково слева направо и справа налево (например, 5, 4 - Программирование

28.11.2017, 13:07. Просмотров 164. Ответов 2
Метки нет (Все метки)

Код
алг цел Сумма перевёртышей (цел N, аргрез целтаб A[1:N])
дано | Целочисленный массив A[1:N]
надо | Найти в массиве A все числа-перевертыши, которые 
       | читаются одинаково слева направо и справа налево 
       | (например, 5, 44, 717, 1221), вычислить их сумму
       | и записать в переменную сумма.
       | Используйте логическую функцию Перевертыш.
нач
цел сумма

знач:=сумма
кон
алг лог Перевертыш(цел N) 
нач

кон
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2017, 13:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос [КуМир]Найти в массиве A все числа-перевертыши, которые читаются одинаково слева направо и справа налево (например, 5, 4 (Программирование):

[КуМир] Найти все простые трехзначные числа
Я новичок здесь, не нашел подходящей темы для программы KUMIR. Решил сюда...

[Кумир] Найти в массиве 2 максимальных элемента и их индексы
Ввести с клавиатуры массив из 5 элементов, найти в нем 2 максимальных элемента...

Одинаково ли список читается слева направо и справа налево?
Привет! А как определить считается ли, заданный список одинаково слева направо...

Вывести слова, которые читаются одинаково слева направо и справа налево
Всем привет! Помогите написать программу, в которую вводишь строку слов, а она...

Вывести элементы массива, которые читаются слева направо и справа налево одинаково
15.5 Дан массив натуральных чисел A. Все элементы трехзначные. Вывести те...

Вывести на экран слова из этой строки, которые одинаково читаются слева направо и справа налево (палиндромы)
Составить программу, которая вводит с клавиатуры строку, содержащую до 80...

2
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25595 / 17148 / 6819
Регистрация: 22.10.2011
Сообщений: 30,344
Записей в блоге: 6
28.11.2017, 16:16 #2
Лучший ответ Сообщение было отмечено Михаил8888 как решение

Решение

Код
алг цел Сумма перевёртышей (цел N, аргрез целтаб A[1:N])
дано | Целочисленный массив A[1:N]
надо | Найти в массиве A все числа-перевертыши, которые 
     | читаются одинаково слева направо и справа налево 
     | (например, 5, 44, 717, 1221), вычислить их сумму
     | и записать в переменную сумма.
     | Используйте логическую функцию Перевертыш.
нач
  цел сумма
  цел i
  сумма := 0
  нц для i от 1 до N
    если Перевертыш(A[i]) то сумма := сумма + A[i] все  
  кц
  знач := сумма
кон

алг лог Перевертыш(цел v) 
нач
  цел t
  цел x
  t := v
  x := 0
  нц пока t <> 0
    x := x * 10 + mod(t, 10)
    t := div(t, 10)
  кц
  знач := x = v
кон
Как-то так...
1
Михаил8888
0 / 0 / 2
Регистрация: 04.05.2017
Сообщений: 32
28.11.2017, 20:09  [ТС] #3
да, получилось!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2017, 20:09
Привет! Вот еще темы с решениями:

Написать программу, которая выделяет любим способом в тексте слова палиндромы (слова, которые читаются одинаково справа налево и слева направо)
Вот примеры - &quot;level, radar, dewed, civic, solos...&quot; и строка - &quot;When I get...

Создайте процедуру, которая находит и выводит на экран слова, одинаково читаются слева направо и справа налево
Дана последовательность слов, разделенных пробелами, в конце точка. Создайте...

Вывести на экран все числа-палиндромы (числа, которые одинаково читаются как слева так и справа)
Вывести на экран все числа палиндромы (т.е числа которые читаются одинаково как...

Дано натуральное число N. Определить, является ли оно палиндромом. Число-палиндром можно читать справа налево и слева направо одинаково. Например,
Дано натуральное число N. Определить, является ли оно палиндромом....


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

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

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