Составьте программу выводящую на экран реже всего встречающуюся цифру натурального числа к

@Tasha-kasha · Регистрация: 14.05.2020

Студворк — интернет-сервис помощи студентам

Помогите написать программу в pascal abc.net.

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

по итогу, выглядеть должно так:

Ввод 12323

Вывод Чаще всего 2 раз(а) встречаются цифры 2 3

Ввод 123

Вывод Чаше всего 1 раз(а) встречаются цифры 1 2 3

@JuriiMW · 15.05.2020, 04:10

Сообщение от Tasha-kasha

найти числа, которые реже всего встречаются

Ключевое слово „реже“.
А в примерах у вас что?

Pascal
1
2
3
4
5
begin
  var n:=ReadInteger;
  var p:=n.ToString.GroupBy(c->c).OrderBy(c->c.Count);
  $'Реже всего {p.First.Count} раз(а) встречаются цифры'.Print;p.Where(c->c.Count=p.First.Count).Select(c->c.Key).Print(#32);
end.

@Tasha-kasha · 15.05.2020, 11:09 **[ТС]**

Ой, и правда. Думаю, ошибка преподавательницы, и мы обе не заметили.
В таком случае, должно выглядеть:
ввод: 111223455
ввод: реже всего (1 раз) встречаются цифры 3 4

@JuriiMW · 15.05.2020, 11:17

Ну вот оно так и выглядит:
https://www.cyberforum.ru/atta... 1589530628

@Tasha-kasha · 15.05.2020, 11:33 **[ТС]**

Спасибо, но меня такой вариант, к сожалению, не примут, т.к. мы подобные вещи еще не проходили. Нужно это делать как-то через стандартные функции или просто через операторов.

@Sun Serega · 15.05.2020, 19:00

Сообщение от Tasha-kasha

мы подобные вещи еще не проходили

Не придумывайте, у меня всегда принимали программу с тем, что не проходили. Не принять могут только если учитель решит что не вы это написали.

Но если учителю будет так уж важно знать кто написал программу - вас в любом случае попросят объяснить, что делает что, не зависимо от того как она написана.

Такую программу на много проще понять, чем говнокод которому обычно учат в школах. Хотя, конечно, когда влеплено столько в 1 строчку - выглядит страшно.
Как минимум потому что можно наводить мышку на непонятные имена и смотреть их описания, если вставить в IDE.

@Tasha-kasha · 04.06.2020, 12:31 **[ТС]**

Сама в итоге решила, но все равно спасибо

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program p142;
var i,k,j:integer;a:array [1..100] of char;chis:string;kol:integer;min:char;
begin
  writeln('введите большое натуральное число');
  readln(chis);
  for i:=1 to length(chis) do
    a[i]:=chis[i];
  kol:=100;
  for i:=1 to length(chis) do begin
    k:=0;
    for j:=1 to length(chis) do
      if a[i]=a[j] then inc(k);
    if k<kol then begin 
      min:=a[i];kol:=k;
    end;
  end;
  writeln('число, встречающееся реже всех, равно ',min, ' оно встречается ',kol,' раз(а)')
end.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Tasha-kasha 0 / 0 / 1 Регистрация: 14.05.2020 Сообщений: 4

	Составьте программу выводящую на экран реже всего встречающуюся цифру натурального числа к 14.05.2020, 17:14. Показов 1276. Ответов 6 Метки паскаль abc.net (Все метки) Помогите написать программу в pascal abc.net. Пользователь должен ввести число, а программа найти числа, которые реже всего встречаются и вывести их. по итогу, выглядеть должно так: Ввод 12323 Вывод Чаще всего 2 раз(а) встречаются цифры 2 3 Ввод 123 Вывод Чаше всего 1 раз(а) встречаются цифры 1 2 3 0

@Tasha-kasha 0 / 0 / 1 Регистрация: 14.05.2020 Сообщений: 4
	15.05.2020, 11:09 [ТС]
	Ой, и правда. Думаю, ошибка преподавательницы, и мы обе не заметили. В таком случае, должно выглядеть: ввод: 111223455 ввод: реже всего (1 раз) встречаются цифры 3 4 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	15.05.2020, 11:17
	Ну вот оно так и выглядит: https://www.cyberforum.ru/atta... 1589530628 Миниатюры 0

@Tasha-kasha 0 / 0 / 1 Регистрация: 14.05.2020 Сообщений: 4
	15.05.2020, 11:33 [ТС]
	Спасибо, но меня такой вариант, к сожалению, не примут, т.к. мы подобные вещи еще не проходили. Нужно это делать как-то через стандартные функции или просто через операторов. 0

Составьте программу выводящую на экран реже всего встречающуюся цифру натурального числа к

Решение