Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 23.05.2016
Сообщений: 16
1

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

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

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

Из 3 натуральных чисел выбрать число в котором заданная цифра встречается максимальное количество раз
Помогите написать программу с помощью процедуры. Из 3 натуральных чисел выбрать число в котором...

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

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

Сколько раз встречается большее число
Условие: Дано натуральное число. Определить сколько раз в нем встречаться максимальная...

1
Эксперт Pascal/Delphi
2380 / 1292 / 1491
Регистрация: 29.08.2014
Сообщений: 4,626
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2016, 12:04

Найти в строке букву, которая встречается большее число раз
Всем привет. У меня вот такая задача: Две строки инициализировать в программе. Составить из них...

Найти натуральное число, которое во входе встречается нечетное число раз и вывести на экран
задача. на вход подается сначала кол-во эл-тов массива<500 000, затем сами элементы, каждый из...

Ввести число. Определить, сколько раз в нем встречается цифра 5
Помогите пожалуйста. 1)Ввести число. Определить, сколько раз в нем встречается цифра 5 2)Ввести...

Дано натуральное число n. Сколько раз в нем встречается цифра A
Дано натуральное число n. Выясните, сколько раз в нем встречается цифра A.


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

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

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