Разные числа

[Zoltorn]

Нужно в файле написать рядок чисел N(1<=N<=101000);
и найти сколько разных чисел в строчке.
На пример 12344 будет 4

[Stilet]

предлагаю такую схему:

function razn(n:integer):Integer;
var s:set of 0..9;i,c:integer;
begin
 while n>0 do begin
  include(s,n mod 10);
  n:=n div 10;
 end;
 c:=0;
 for i:=0 to 9 do if i in s then inc(c);
 razn:=c;
end;

Не опробовал ее. В функцию передавай число и получай кол-во уникальности цифр.

[Poma][a]

Не опробовал ее

На вид всё верно.. (только я бы множество инициализировал..)
НО есть одна проблемка.. ограничения..
боюсь там написанно 10^1000.. тогда твой вариант не прокатит..
предлагаю или баловаться строкой (что скушает много памяти) либо читать посимвольно, что является самым оптимальным вариантом..

Тоесть вариант Виталия изменится совсем шушуть..

[Arigato]

Сообщение от 'Poma

боюсь там написанно 10^1000..

Чего?

[Poma][a]

Чего?

Хорошо, как тогда понять эту запись? 10 в 1000 с.с.?

Сообщение от Zoltorn

N(1<=N<=101000);

[ZX Spectrum-128]

боюсь там написанно 10^1000.. тогда твой вариант не прокатит..

До тысячного элемента там

Да уж, обмишурился я.
Опечатка явная, но что она означает?

[Arigato]

Сообщение от Poma][a

Хорошо, как тогда понять эту запись? 10 в 1000 с.с.?

Да я не против, только квантовый компьютер еще не создан

[Poma][a]

Да я не против, только квантовый компьютер еще не создан

Да ладно.. до свадьбы даст Бог выполнится

До тысячного элемента там

Прув?

[Stilet]

боюсь там написанно 10^1000

Тогда полюбому строка. Хотя какому студенту захочется вводить такую огромную строку?

[Poma][a]

Тогда полюбому строка.

Тогда готовь плакат "Привет, BSOD или RunTime Error".. это ж сколько ж памяти она сожрет.. боюсь только посимвольно читать..