Строки. Помогите пожалуйста, Проблема с написанием программы. Опции

[jetman]

Вот уже 8 день, как я начал писать на паскале. Видно не мое <_< , до сих пор не могу разобраться с принципом написания элементапрных прог.
Теперь непосредственно о проблеме Дана строка символов. Преобразовать строку, удвоив каждую латинскую букву.

Сообщение отредактировано: jetman - 3.10.2005 14:34

[jetman]

volvo огромный тебе респект, за помощь. Все работает

program test;
 var i : integer;
     s : string;
 begin
 writeln('Enter symbools, please');
 readln(s);
 i := 1;
  while length(s) >= i do
  begin
  if s[i] in ['a' .. 'z'] then
  begin
  insert(s[i], s, i+1); inc(i)
  end;
  if s[i] in ['A' .. 'Z'] then
  begin
  insert(s[i], s, i+1); inc(i)
  end;
 inc(i);
 writeln(s);
 readln;
end;
end.

Только вот как сделать, чтобы не надо было жать Enter постоянно (для каждого изменения), а сразу выходил бы готовый итоговый результ.

Тегами пользуйся...

Сообщение отредактировано: volvo - 3.10.2005 16:41