Цитата:
Сообщение от Dasha26970
Здравствуйте, помогите пожалуйста.....
Напишите программу, запрашивающую с клавиатуры натуральное число n и определяющую количество различных цифр в его десятичной записи.
|
Да... забавная задачка. Ну пожалуйста:
Код:
VAR
p:Byte;
S,S1:String;
Ch:Char;
BEGIN
Writeln('n:');
Readln(S);
S1:='';
Repeat
Ch:=S[1];
S1:=S1+Ch;
Repeat
p:=Pos(Ch,S);
Delete(S,p,1);
Until p=0;
Until Length(S)=0;
Writeln(Length(S1),' different figures');
Readln
END.