Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 02.04.2015
Сообщений: 3
1

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

02.04.2015, 22:26. Показов 942. Ответов 2
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2015, 22:26
Ответы с готовыми решениями:

Сколько раз заданная цифра встречается в числе N
Вот задание: сколько раз заданная цифра встречается в числе N? Срочно нужно!Ооочень!

Сколько раз встречается заданная цифра в натуральном числе?
Не могу найти ошибку. Программа не считает количество цифр. В чем ошибка? Function kol...

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

Сколько раз заданная цифра встречается в заданном целом числе?
Нужно вот задачки решить:1.найти сумму цифр числа больших пяти 2.сколько раз заданная цифра...

2
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,148
Записей в блоге: 1
03.04.2015, 06:18 2
Лучший ответ Сообщение было отмечено Di1igent как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Var a,b,c,m,k,max,imax:integer;
Procedure P(n,m:integer;Var k:integer);
Begin
    k:=0;
    While n>0 do
    Begin
      if n mod 10 = m then k:=k+1;
      n:=n div 10;
    End;
End;
Begin
   write('Введите 3 натуральных числа: ');
   readln(a,b,c);
   write('Введите заданную цифру: ');
   readln(m);
   P(a,m,max);
   imax:=a;
   P(b,m,k);
   if k>max then 
   Begin
     max:=k;
     imax:=b;
   End;
   P(c,m,k);
   if k>max then Begin
     max:=k;
     imax:=c;
   End;
   writeln('Число с max вхождением цифры ',m,' = ',imax);
   writeln('Она входит в число ',max,' раз(а)');
End.
1
0 / 0 / 0
Регистрация: 02.04.2015
Сообщений: 3
03.04.2015, 06:52  [ТС] 3
Спасибо большое.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2015, 06:52

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

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

Вывести число, в котором большее число раз встречается цифра 3
Даны два натуральных числа. Вывести число, в котором большее число раз встречается цифра 3. При...

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


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

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

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