YarGen Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   var s,tmps:string;     i:integer;     f:boolean;   begin write('введите строку:');readln(s); tmps:=''; f:=true; for i:=1 to length(s) do  begin   case s[i] of    '(','[':tmps:=tmps+s[i];        ')':if tmps[length(tmps)]<>'(' then f:=false else delete(tmps,length(tmps),1);        ']':if tmps[length(tmps)]<>'[' then f:=false else delete(tmps,length(tmps),1);   end;   if not f then break;  end; if length(tmps)>0 then f:=false;   if f then  writeln('Да') else  writeln('Нет'); end. Всего записей: 42 | Зарегистр. 19-06-2008 | Отправлено: 10:55 03-06-2009 | Исправлено: YarGen, 11:33 03-06-2009

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование