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

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

26.11.2013, 13:15. Показов 1048. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста!
1. Пользователь вводит целое положительное число. Сколько цифр этого числа встречаются в нем ровно один раз? (т.е. не повторяются)
Пример:
число 773647 Ответ 3.
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2013, 13:15
Ответы с готовыми решениями:

В данном числе найти те цифры, которые в нем встречаются ровно один раз
В данном числе найти те цифры, которые в нем встречаются ровно один раз. (Реализовать с помощью...

Из заданного текста выбрать и напечатать те символы, которые встречаются в нём ровно один раз
Из заданного текста выбрать и напечатать те символы, которые встречаются в нём ровно один раз

Напечатать все слова, которые встречаются в нем ровно один раз
Здравствуйте. Помогите, пожалуйста, с задачей. Условие: Дано предложение, состоящее из слов,...

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

1
1 / 1 / 1
Регистрация: 15.05.2009
Сообщений: 12
27.11.2013, 19:36  [ТС] 2
Лучший ответ Сообщение было отмечено Shirka как решение

Решение

я вот так сделала, может кто то более рациональный способ предложит?

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
32
33
34
35
36
37
38
39
var i, k,j,g, n, m, y,z,x,o,p,e,r,l,g1: longint;
    a: array [1..10] of integer;
 
begin
  write('n = ');
  readln(n);
  k := 0;
  while n > 0 do //выясняем количество разрядов и запихиваем разряды в массив
    begin
      k := k + 1;
      a[k] := n mod 10;
      n := n div 10
    end;
  
  g:=0;
  for i := 1 to k do begin
  if a[i]=0 then g:=g+1; 
  if a[i]=1 then m:=m+1;
  if a[i]=2 then y:=y+1;
  if a[i]=3 then z:=z+1;
  if a[i]=4 then x:=x+1;
  if a[i]=5 then o:=o+1;
  if a[i]=6 then p:=p+1;
  if a[i]=7 then e:=e+1;
  if a[i]=8 then r:=r+1;
  if a[i]=9 then l:=l+1; end;
  if g=1 then g1:=g1+1;
  if m=1 then g1:=g1+1;
  if y=1 then g1:=g1+1;
  if z=1 then g1:=g1+1;
  if x=1 then g1:=g1+1;
  if o=1 then g1:=g1+1;
  if p=1 then g1:=g1+1;
  if e=1 then g1:=g1+1;
  if r=1 then g1:=g1+1;
  if l=1 then g1:=g1+1;
 writeln(g1);
  
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2013, 19:36

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Из текста выбрать и напечатать те символы, которые встречаются в нем ровно один раз
Из заданного текста выбрать и напечатать те символы, которые встречаются в нем ровно один раз (в...

Из заданного текста выбрать те символы, которые встречаются в нём ровно один раз
Из заданного текста выбрать те символы, которые встречаются в нём ровно один раз. Вывести их в...

Вывести только те слова сообщения, которые встречаются в нем ровно один раз
Дано осмысленное текстовое сообщение (т.е. алфавитно-цифровая информация, разделенная пробелами и...

Из заданного текста выбрать и напечатать те символы, которые встречаются в нем ровно один раз
Не могу научиться мыслить на c++. Но старательно пытаюсь.... Если бы не традиционное "Завтра...

Распечатайте только те значения элементов массива, которые встречаются в нем ровно один раз
Помогите пожалуйста решить задачу: На вход программе сначала подается значение n 100 —...


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

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

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