Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
ZX-spectrum1968
0 / 0 / 0
Регистрация: 23.05.2016
Сообщений: 14
#1

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

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

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

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

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

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

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

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

дано натуральное число верно ли что цифра A встречается в нем реже чем цифра B - Pascal
помогите пожалуйста решить две задачи очень срочно нужно 1. дан массив. Переписать его положительные элементы во второй массив а...

1
Joy
Эксперт Pascal/Delphi
2110 / 1150 / 870
Регистрация: 29.08.2014
Сообщений: 4,197
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
Привет! Вот еще темы с ответами:

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

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

Сколько раз число встречается в массиве - Pascal
1.Ввести с клавиатуры число и определить сколько раз оно встречается в массиве. 2.Ввести с клавиатуры число и определить порядковый номер...

Сколько раз встречается число a (а вводится с клавиатуры) - Pascal
Помогите пожалуйста решить задачи: 1) Генерируются 100 чисел. Сколько раз встречается число a (а вводится с клавиатуры) 2) Найти...


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

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

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