Разное

Вот на всякий случай мой вариант решения проблемы:

Program two_1; var st: string; z,i: integer; Begin writeln('vvedite stroku'); readln(st); z:= length(st); for i:=1 to z-1 do                          {Удаление пробелов между словами}     begin     if (st[i]=' ') and (st[i+1]=' ') then     begin delete(st,i,1); i:=i-1 end;     end; if st[1]=' ' then delete(st,1,1);           {Удаление пробела в начале} if st[z]=' ' then delete(st,z,1);           {Удаление пробела в конце}     writeln(st); end.

Поздравления принемаю сдал микроэлектронику на 4 =) А вот языки нет =)
В том коде было пару ошибок, но не это главное =)
Я оказываеться забыл добавить что надо по мимо символов нужно еще и точки с запятыми =) Но я просто решил добавить в if
еще код "." и "," Ну =) Спасибо в общем =)

UNIX-у недавно 35 лет стукнуло :))) он ещё старше :)))

>Эх а завтра еще микроэлектронику сдовать =((
Удачи :)

НЕ хочу его учить =Р Он старый =) меня к порядку Юникс приучит =)

Вообще Pascal штука хорошая, к порядку приучает :)))

i или j не важно =) Я правда сам еще постораюсь =) Алгоритм я знаю , но вот синтаксис =( На меня еще большая часть группы расчитывает...Эх а завтра еще микроэлектронику сдовать =((

Ну эта... комментарии, конечно, не // а {}... я их уж потом в Far выставлял - руки сами набили :)))

:))) проверьте, правда я перед помещением его сюда заменил все i на j - руки никак не доходят по-нормальному замену тэгов [ i] в форуме сделать... если нигде i на j заменить не забыл должно работать :)))

Волшебно =) Я бесконечно благодарен =D Теперь осталось убедить , что это я написал =))
А код надеюсь рабочий ;)