Задачи на нат. числа, матрицы Опции

[Вэл]

Please,help!!!!!

1)))Найти кол-во различных цифр данного натурального числа.


2)))На плоскости заданы множество точек М и точка С вне его.Подсчитать кол-во различ. пар точек А,В из М таких,что треугольник АВС - равносторонний
3))))Прямоугольник задан координатами своих вершин,стороны параллельны осям координат.Определить плозадь той части прямоуг-ка,которая нах-ся во 2 четверти.

[volvo]

Найти кол-во различных цифр данного натурального числа

Ну, если число задано не в виде строки (т.е. именно числом), то можно сделать так:

Код

var
 n: longint;
 digits: set of byte;
 count, last: integer;

begin
 n := 12348323;
 count := 0; digits := [];
 while n > 0 do
   begin
     last := n mod 10;
     if not (last in digits) then
       begin
         digits := digits + [last];
         inc(count); write(last:3)
       end;
     n := n div 10
   end;

 writeln;
 writeln('count = ', count)
end.

P.S.

Ну почему же вы молчите?не так нужна ваша момощь

Потому, что это - не помощь... Помощь - это когда Вы хоть что-нибудь делаете... А Вы хотите, чтобы все делали за Вас...