Вычислить количество различных цифр в десятичной записи числа

@Ocha · Регистрация: 18.12.2008

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

Прошу помощи!

Вычислить количество различных цифр в десятичной записи числа.

@schdub · 01.02.2009, 09:48

Pascal

var
  chislo : string;
  arr    : array [0..9] of integer;
  len, i : integer;
 
begin
  Write('Vvedite chislo : '); ReadLn(chislo);
  for i := 0 to 9 do arr[i] := 0;
 
  len := length(chislo);
  for i := 1 to len do
    if (chislo[i] >= '0') and (chislo[i] <= '9') then Inc(arr[ord(chislo[i])-ord('0')]);
 
  {вывод окончательных сведений}
  for i := 0 to 9 do
    if arr[i]>0 then WriteLn('V chisle ', chislo,' cifra ', i,' vstrechaetsya ', arr[i],' raz.');
 
 
  Write('Press any key for continue...'); ReadLn;
  
end.

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

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
		1
	Вычислить количество различных цифр в десятичной записи числа 01.02.2009, 09:22. Показов 1599. Ответов 1 Метки нет (Все метки) Прошу помощи! Вычислить количество различных цифр в десятичной записи числа. 0

	01.02.2009, 09:48

Вычислить количество различных цифр в десятичной записи числа

Решение