Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ZX-spectrum1968
0 / 0 / 0
Регистрация: 23.05.2016
Сообщений: 15
1

Вывести число, в котором большее число раз встречается цифра 3

06.06.2016, 10:32. Просмотров 754. Ответов 1
Метки нет (Все метки)

Даны два натуральных числа. Вывести число, в котором большее число раз
встречается цифра 3. При решении использовать подпрограмму для отделения цифр
числа.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2016, 10:32
Ответы с готовыми решениями:

Дано натуральное число. Определить,сколько раз в нем встречается максимальная цифра
1 Дано натуральное число. Определить,сколько раз в нем встречается максимальная цифра.

Дано натуральное число, определить сколько раз в нем встречается первая цифра.
Бinteger или longint

Подсчитать сколько раз в массиве встречается число 5
Дан массив А(10). Подсчитать сколько раз в массиве встречается число 5. Если число отсутствует, то...

Подсчитать сколько раз встречается число в массиве
Дан массив действительных чисел, подсчитать сколько раз встречается в массиве число 8.

Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой
1).Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой....

1
Joy
Эксперт Pascal/Delphi
2163 / 1194 / 1434
Регистрация: 29.08.2014
Сообщений: 4,373
06.06.2016, 12:04 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function CountNums(n,i:integer):=Inttostr(n).Where(c->c=inttostr(i)).Count();
var
  i,j,k,l:integer;
begin
  writeln('Введите 2 числа:');readln(i,j);
  k:=CountNums(i,3);l:=CountNums(j,3); 
  if (k=0) and (l=0)then writeln('Цифра 3 не содержится ни в одном из чисел') else
    case sign(k-l) of
      1:writeln(i);
     -1:writeln(j);
     else writeln('Цифра 3 в оба числа входит одинаковое количество раз');
   end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2016, 12:04

Распечатать то предложение, в котором указанный символ встречается большее количество раз
Ребята, помогите пожалуйста решить 2 задачи. Пропустил пару тем...про модули вообще молчу,...

Найти число в котором, зачеркнув последнюю цифру, получится число в 14 раз меньше исходного
2)Найти число, обладающее следующим свойством:если в нем зачеркнуть последнюю цифру, то получится...

сколько раз встречается число
даны числа а, n>0, x1..xn. подсчитать сколько раз в заданной последовательности встречается член...


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

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

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