Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2008, 10:05   #1
Ntfser
 
Регистрация: 18.10.2008
Сообщений: 6
Восклицание Срочно нужна помощь!!!!

В заповеднике сусликов «ЗС» в последние дни начали пропадать деньги у посетителей (а точнее монетки достоинством от 1-й до 9-ти копеек). Директор Барни решил принять меры и вызвал милицию. В результате следственных операций выяснилось, что это суслики воруют монетки у посетителей и хранят их в тайнике, под недавно построенной кормушкой.
После обнаружение тайника, была произведена опись всего имеющегося там, причём оказалось, что суслики воровали не только монетки, но и другие вещи. В документе об описи перечислены все эти вещи, и достоинства монеток.
Теперь милиции необходимо узнать, сколько рублей наворовали суслики.


Формат ввода:
Документ об описи, в котором могут нахоться слова как на русском, так и на английском языке, и цифры - достоинства монеток (в документе содержится не более 2000 символов).


Формат вывода:
Размер награбленного (с точность до 2 знаков после запятой).



Пример ввода:
серьга2пакет569яблоко


Пример вывода:
0.22
Ntfser вне форума Ответить с цитированием
Старый 25.10.2008, 10:09   #2
Ntfser
 
Регистрация: 18.10.2008
Сообщений: 6
По умолчанию

желательно на делфи или паскале)))
Ntfser вне форума Ответить с цитированием
Старый 25.10.2008, 13:04   #3
Ламер_001
Ну и что? :)
Форумчанин
 
Регистрация: 20.10.2008
Сообщений: 129
По умолчанию

Код:
n := length(s);
sum := 0;
for i:=1 to n do
 if ( (s[i] <= '9') and (s[i] >= '1') ) then sum := sum + StrToInt(s[i]) * 0.01;
writeln(sum:5:2);
Учиться, учиться и еще раз учиться
Ламер_001 вне форума Ответить с цитированием
Старый 26.10.2008, 01:03   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

к ответу Ламер_001
добавлю код для Pascal:
Код:
var
  s : string;
  i : integer;
  sum : integer;
begin
  Writeln('VVedite stroku:');
  ReadLn(s);
  {s := 'серьга2пакет569яблоко';}
  sum := 0;
  for i:=1 to Length(s) do
    if ( (s[i] <= '9') and (s[i] >= '1') ) 
      then sum := sum + ord(s[i]) - ord('0');
  writeln((sum/100):5:2);
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна помощь срочно!!! Dude Помощь студентам 2 06.06.2007 10:40
СРОЧНО нужна помощь!!! •ScReam•™ Помощь студентам 1 13.05.2007 12:41
СРОЧНО! Нужна помощь RUsoft Общие вопросы Delphi 2 26.03.2007 16:54