Форум PHP программистов > Помогите решить задачку!

[ Поиск ] - [ Пользователи ] - [ Календарь ]

mitty

11.12.2009 - 01:32

Пожалуйста,помогите составить программу обработки строк на языке Турбо Паскаль. Группы символов, разделенные пробелами и не содержащие пробелы внутри себя, будем называть словами. Вывести слова, являющиеся натуральными числами.

Заранее спасибо

Спустя 1 час, 3 минуты, 49 секунд (11.12.2009 - 01:36) waldicom написал(а):

последний класс школы или первый курс института?

Спустя 7 часов, 32 минуты, 39 секунд (11.12.2009 - 09:08) Romms написал(а):

Ты форумом не ошибся?
> Форум PHP программистов ► PHP основы ► Сессии, cookies, авторизация, регистрация, md5

Ладно, с тебя шоколадка

var a,s,g:longint;
      z:array[0..100] of string;
      p:boolean;
      d,f:string;
begin
  readln(d);

  s:=1;
  repeat
     if d[s]=' ' then
     s:=s+1;

     f:='';
     p:=true;

     repeat
        if ((ord(d[s])-48)>=0)and((ord(d[s])-48)<=9) then
         f:=f+d[s]
        else
         p:=false;

        s:=s+1;
     until (d[s]=' ')or(s>=length(d));

     if p then writeln(f);

  until (s>=length(d));
end.

Спустя 33 минуты, 25 секунд (11.12.2009 - 09:42) sergeiss написал(а):

Переместил тему в "Услуги".

Спустя 14 часов, 57 минут, 34 секунды (12.12.2009 - 00:39) mitty написал(а):

Я еще первый курс института...:-)

Спустя 19 минут, 40 секунд (12.12.2009 - 00:59) twin написал(а):

Ачто за институт? Не ПКРС (пантомимы и кривлянья рожиц) случайно?

Быстрый ответ:

Здесь расположена полная версия этой страницы.