Цитата:
|
Сообщение от delphi_help
№2
ввести строку. "задвоить" каждый символ строки.
задание первой узнаю завтра, за ранее благодарю!
|
Вторая программа вроде правильно работает. Только я немного по-другому её сделал бы:
Код:
var
S1, S2: string;
i: integer;
begin
Readln(S1);
SetLength(S2, Length(S1) * 2);
for i := 1 to Length(S1) do
begin
S2[i * 2 - 1] := S1[i];
S2[i * 2] := S1[i];
end;
Writeln(S2);
end. А вот вторая программа явно делает что-то не то - у меня она просто заменяет в числе нолики на девятки (если это действительно то что она должна делать, то это можно сделать и попроще). Ещё там вычисляется значение для переменной i, но потом эта переменная нигде не используется (зачем, спрашивается, её вычисляли?). Ну и компилятор должен ругнуться на строку где объявляются переменные - там должно быть двоеточие вместо знака крышки.