Показать сообщение отдельно
Старый 08.06.2011, 16:50   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от 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.
Vladimir_S вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070