Цитата:
|
Сообщение от ReaLife
Задача 1.
Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от * .
|
Код:
function CovertStr(AStr : String) : String;
var
I : integer;
begin
Result := '';
For I := 1 To Length(AStr) Do
If AStr[i] <> '*' Then Result := Result + AStr[i] + AStr[i];
end;
Остальное - примерно такой-же уровень, может надо решать в несколько шагов.
ЗЫ. Вообще, для таких запросов есть раздел "Работа". Будьте внимательнее.