Показать сообщение отдельно
Старый 10.10.2012, 22:39   #6 (permalink)
TpaXmopucm
Member
 
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

результат работы этого
Цитата:
PROGRAM function_delete;

VAR
Words: STRING[79];
Word1: STRING[20];

BEGIN
WriteLn;
Words := 'нАСТЕНЬКА';
WriteLn(Words);
Delete(Words,1,3);
WriteLn(Words);
Delete(Words,3,2);
WriteLn(Words);

END.
Цитата:
нАСТЕНЬКА
ТЕНЬКА
ТЕКА
Результат который нужен сам незнаю ..есть только условие вот оно
Цитата:
напишите процедуру,которая удаляет из списка символ указанный при вызове процедуры (delete).
Принес тот вариант сказали не правильно иди переделывай... хотя все работает ....а чего они точно хотят не известно .....сказали лишь что какую-то процедуру еще нужно или эта не верна =(
TpaXmopucm вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070