0 / 0 / 0
Регистрация: 01.11.2018
Сообщений: 36
1

Найти среднюю цифру натурального числа (только для чисел с нечетным количеством цифр)

15.11.2018, 15:20. Показов 3781. Ответов 10
Метки нет (Все метки)

2. Найти среднюю цифру натурального числа (только для чисел с нечетным количеством цифр)

Решать через процедуру, заранее спасибо)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2018, 15:20
Ответы с готовыми решениями:

Для заданного натурального числа найти первую цифру и сумму его цифр
Задано натуральные числа от 10 до N. Для натурального числа найти первую цифру и сумму его цифр.

Найти все квадратные палиндромические числа с нечетным количеством цифр
На заданном числовом промежутке требуется найти все квадратные палиндромические числа с нечетным...

Для натурального числа M требуется найти любое число, состоящее только из цифр 0 и 7 и делящееся на M
Для натурального числа M требуется найти любое число, состоящее только из цифр 0 и 7 и делящееся на...

Для заданного натурального числа найти наибольшую цифру
Помогите написать программу на Турбо Паскале:Для заданного натурального числа найти наибольшую...

10
4955 / 2561 / 2312
Регистрация: 10.12.2014
Сообщений: 9,817
15.11.2018, 15:52 2
Лучший ответ Сообщение было отмечено Reebok02 как решение

Решение

Чисто арифметически:
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure midCifra(n : Integer);
begin
  n:=abs(n);
  var(digits,tmp):=(0,n); repeat digits+=1; tmp:=tmp div 10; until tmp=0;
  if Not odd(digits) then begin WriteLn('чётное количество цифр'); Exit; end;
  loop digits div 2 do n:=n div 10; WriteLn(n mod 10);
end;
 
begin
  midCifra(ReadLnInteger);
end.
А если строками, то гораздо проще:
Pascal
1
2
3
4
5
6
7
8
9
procedure midCifra(n : Integer);
begin
  var s:=abs(n).ToString;
  WriteLn(Not odd(s.Length)?'чётное количество цифр':s[s.Length div 2+1])
end;
 
begin
  midCifra(ReadLnInteger);
end.
1
0 / 0 / 0
Регистрация: 01.11.2018
Сообщений: 36
20.11.2018, 22:08  [ТС] 3
А вот если решать чисто арифметически, то можно как-то попроще?) Просто ваш уровень программирования намного выше моего на первом курсе, мне бы разобраться в коде, а то у вас слишком сложно) Извиняюсь за наглость
0
2056 / 1219 / 461
Регистрация: 07.04.2017
Сообщений: 4,327
20.11.2018, 23:08 4
А что непонятно то? В арифметическом решении как раз ничего сверхъестественного не использовано...
1
0 / 0 / 0
Регистрация: 01.11.2018
Сообщений: 36
20.11.2018, 23:18  [ТС] 5
Ну вот допустим, непонятно почему так записывается, смысл то вроде понятен

*digits+=1
*var(digits,tmp):=(0,n)
0
2056 / 1219 / 461
Регистрация: 07.04.2017
Сообщений: 4,327
20.11.2018, 23:21 6
Ну, именно это считает кол-во цифр. Что делает var (a,b) := (1,2) понятно хоть?
1
0 / 0 / 0
Регистрация: 01.11.2018
Сообщений: 36
20.11.2018, 23:26  [ТС] 7
Присваивает переменным а и б значения 1 и 2 соответственно?
0
2056 / 1219 / 461
Регистрация: 07.04.2017
Сообщений: 4,327
20.11.2018, 23:29 8
Да.

Что дальше не понятно?
1
0 / 0 / 0
Регистрация: 01.11.2018
Сообщений: 36
20.11.2018, 23:33  [ТС] 9
И последнее, loop это почти то же самое, что и for?
0
2056 / 1219 / 461
Регистрация: 07.04.2017
Сообщений: 4,327
20.11.2018, 23:39 10
Попробуйте написать в редакторе loop, поставить на него курсор и нажать F1. Так с большинством имён работает.
1
0 / 0 / 0
Регистрация: 01.11.2018
Сообщений: 36
20.11.2018, 23:48  [ТС] 11
Спасибо большое за подробные ответы, извиняюсь за тупость
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2018, 23:48
Помогаю со студенческими работами здесь

Для заданного натурального числа n найти старшую цифру
Заранее спасибо!

Найти первую цифру , последнюю цифру, количество цифр и сумму цифр числа
Дано натуральное число n. Найти первую цифру , последнюю цифру, количество цифр, сумму цифр...

Определить наибольшую цифру среди цифр натурального числа N
Определить наибольшую цифру среди цифр натурального числа N.

Вывести первую цифру и сумму цифр натурального числа
Задано натуральные числа от 10 до N. Для натурального числа найти первую цифру и сумму его цифр....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru