Описать функцию, которая возвращает кол-во разных цифр введеного числа

@GFS · Регистрация: 07.11.2009

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

Описать функцию, которая возвращает кол-во разных цифр введеного цисла типа Longint.
Решите пожалуйста. Заранее спс.

Добавлено через 21 минуту
ребят помогите как можно быстрее!

Добавлено через 3 минуты
а вот еще тип строка нельзя использовать

@yanyk1n · 01.12.2009, 19:30

Pascal

uses crt;
var n:longint;
 
fucntion kol(n:longint):integer;
var c:array[0..9]of 0..1;
i:integer;
begin
 for i:=0 to 9 do c[i]:=0;
 kol:=0;
 while n<>0 do
 begin
  if c[n mod 10]=0 then
  begin
   c[n mod 10]:=1;
   inc(kol);
  end;
  n:=n div 10;
 end;
end;
 
begin
 clrscr;
 readln(n);
 writeln(kol(n));
 readln;
end.

@GFS · 01.12.2009, 19:32 **[ТС]**

огромное спс

@GFS 18 / 18 / 8 Регистрация: 07.11.2009 Сообщений: 118
		1
	Описать функцию, которая возвращает кол-во разных цифр введеного числа 01.12.2009, 19:28. Показов 1176. Ответов 2 Метки нет (Все метки) Описать функцию, которая возвращает кол-во разных цифр введеного цисла типа Longint. Решите пожалуйста. Заранее спс. Добавлено через 21 минуту ребят помогите как можно быстрее! Добавлено через 3 минуты а вот еще тип строка нельзя использовать 0

@GFS 18 / 18 / 8 Регистрация: 07.11.2009 Сообщений: 118
	01.12.2009, 19:32 [ТС]	3
	огромное спс 0

Опции темы

Описать функцию, которая возвращает кол-во разных цифр введеного числа

Решение