![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 02.02.2009
Сообщений: 3
|
![]()
программа такая удалить из текста все палиндромы (палиндром-слова которые с права на лево читаются одинакого например шалаш) спасибо огромное зарание
Последний раз редактировалось MAHDAPUH; 02.02.2009 в 20:25. |
![]() |
![]() |
![]() |
#3 |
Регистрация: 02.02.2009
Сообщений: 3
|
![]()
понимаешь я понятия не имею как работать в нем так что мне нужна срочная помошь меня из инста уже выгнать хотят у меня есть типа такой лабы но я не знаю как ее исправить
|
![]() |
![]() |
![]() |
#4 |
Регистрация: 02.02.2009
Сообщений: 3
|
![]()
program lab_5;
var a,b,c,d:string; k,i,n,s:integer; begin writeln ('vvedite stroku'); readln (a); n:=0; c:=a; d:=' '; insert(a,d,length(a)); repeat b:=copy (a,1,pos(' ',a)-1); delete (a,1,pos(' ',a)+1); if (length(b) mod 2=1) then delete (b,length(b) div 2 +1,1); for i:=1 to length(b) do if b[i]=b[length(b)-i+1] then s:=1 else s:=0; writeln (b[i],b[length(b)-i+1]); if (s=1) then delete (c,pos(b,c),length(b)+1); until (a=''); writeln(c); readln; end. |
![]() |
![]() |
![]() |
#5 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,596
|
![]() Цитата:
E-Mail: arigato.freelance@gmail.com
|
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите сделать плиз | {Shadowevil} | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 20.01.2009 19:42 |
Помогите сделать одну фишку! | eldar | Работа с сетью в Delphi | 1 | 04.08.2008 14:34 |
Помогите плиз, курсак. А как сделать незнаю | chilinik | Помощь студентам | 3 | 27.06.2008 07:53 |
Помогите Сделать лабу плизз! я первак! | bucho | Помощь студентам | 5 | 30.09.2007 13:52 |
помогите сделать задания! плиз!!! | trunx | Microsoft Office Excel | 15 | 28.12.2006 12:45 |