Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
1 / 1 / 0
Регистрация: 27.09.2013
Сообщений: 33

В числе вывести центральную цифру

04.11.2014, 06:48. Показов 4041. Ответов 6

Студворк — интернет-сервис помощи студентам
В исходном числе, содержащем нечетное количество цифр, вывести центральную цифру. Число до 100 знаков.
Ввод
Число с количеством знаков 2n+1 (n натуральное), если не вписывается в условие задачи, то ответ не выводится.
Вывод
Центральная цифра из числа.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.11.2014, 06:48
Ответы с готовыми решениями:

Вывести максимальную цифру в числе и ее позицию
Вводится натуральное число через процедуру ввода. Затем число передается в другую процедуру, результат которой это максимальная цифра в...

В трехзначном числе зачеркнули самую первую цифру и приписали ее слева, вывести полученное число
Дано трехзначное число. В нем зачеркнули самую первую цифру и приписали ее слева. Получите итоговое число и выведите его.

Определите функции: nd(n) - вычисляющую количество цифр в числе; d (n,k) - вычисляющую k цифру справа в целом числе
Дано натуральное число k. Напечатать k - цифру в последовательности 11235813213455.... в которой Bыписаны все числа Фибоначчи. (Определите...

6
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
04.11.2014, 07:03
Вводим число как строку и если длина нечетная и больше 1 то выводим
Pascal
1
s[n div 2+1];
0
1 / 1 / 0
Регистрация: 27.09.2013
Сообщений: 33
04.11.2014, 18:31  [ТС]
вот так ?
Pascal
1
2
3
4
5
6
7
8
9
var i:integer;
s:string;
begin
writeln ('Введите число');
 readln (i);
 str(i,s);
 if length(s) mod 2<>0 then write(s[length(s) div 2+1])
 else write('no');
end.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
04.11.2014, 19:04
Pascal
1
2
3
4
5
6
7
var s:string;
begin
writeln ('Введите число');
readln (s);//сразу вводим строку, нет типа целых чисел, с количеством разрядов до 100
if length(s) mod 2<>0 then write(s[length(s) div 2+1])
else write('no');
end.
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
04.11.2014, 19:12
Цитата Сообщение от Puporev Посмотреть сообщение
if length(s) mod 2<>0
Это зачем, если
Цитата Сообщение от smv4 Посмотреть сообщение
В исходном числе, содержащем нечетное количество цифр
Pascal
1
2
readln(a);
writeln(a[length(a)div 2+1];
всё решение
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
04.11.2014, 19:14
Да непонятно зачем в условии это..
Цитата Сообщение от smv4 Посмотреть сообщение
если не вписывается в условие задачи
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
04.11.2014, 19:37
Видимо, это:
Цитата Сообщение от smv4 Посмотреть сообщение
Число до 100 знаков
тогда
Pascal
1
 if length(a)<100 then writeln(a[length(a)div 2+1]);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.11.2014, 19:37
Помогаю со студенческими работами здесь

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

Вывести 3 цифру в числе
Я не могу понять какое условие тут нужно

Вывести цифру десятков в числе
#include &lt;iostream&gt; #include &lt;math.h&gt; int main(){ int a,b,c; std::cin &gt;&gt; a; c=a%100; b=c\100; std::cout...

Необходимо в многозначном числе вывести k-ую цифру
Необходимо в многозначном числе вывести k-ую цифру, например есть число 126387, при k=4 должно вывести 3. Если можно, на Xlisp

Вывести наибольшую цифру из цифр, и её позицию в числе
Помогите с кодом, а то я немного &quot;дно&quot;. Цель задачи: Надо вводить любое четырехзначное число и выводить в лэйбл: наибольшую цифру из этих...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru