Написать программу в Паскале

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.

Dasha26970 написал(а):

Владимир, простите пожалуйста, а вы не могли бы к моей задаче сделать блок - схему???? Заранее спасибо....

Нажмите для раскрытия...

Dasha26970 написал(а):

И ещё, у меня пишет что Lenght - неизвестная величина, и S1:=''; - это тоже не читает....

Нажмите для раскрытия...

Dasha26970 написал(а):

А у вас какой Паскаль??? Вы не подскажите, где я могу его скачать??? Просто мне безумно надо решить эту задачу сегодня, завтра экзамен, а преподаватель сегодня только дал задание...Прошу вас, помогите пожалуйста....

Нажмите для раскрытия...

Tema92 написал(а):

напишите пожалуйста прогу на паскале плиз срочняк (Дано числительное. Классифицировать его по значению (коли-
чественное, порядковое, собирательное, дробное), по строению (прос-
тое, сложное, составное).
) буду очень признателен)))

Нажмите для раскрытия...