Связка символов

Тема в разделе "Delphi - СОМ", создана пользователем Snuppy, 27 ноя 2008.

Статус темы:
Закрыта.
  1. Snuppy

    Snuppy Гость

    Пожалуйста помогите

    Введена связка символов. Присоединить в ее начале и в конце одинаковое количество минимально возможных буквенных А, чтобы её длина стала по крайней мере 2 раза больше.

    Пример:
    Input: hello
    Result: AAAhelloAAA


    Спасибо
     
  2. etc

    etc Гость

    В чем трудности?
     
  3. Snuppy

    Snuppy Гость

    код:
    Код (Text):
    uses crt;
    var s:string;
    i,n:integer;
    begin
    clrscr;
    write('s: ');readln(s);
    n:=length(s);
    repeat
    s:='A'+s+'A';
    until length(s)>=2*n;
    write('S1: ',s);
    readln
    end.
    преобразовать на речь DELPHI :)

    правильно?

    Код (Text):
    var s:string;
    i,n:integer;
    begin
    S:=inp.Text;  //readln virkni;
    n:=length(s);
    repeat
    s:='A'+s+'A';
    until length(s)>=2*n;
    result.Caption:= s; //writeln rezultātu
    end;
     
  4. etc

    etc Гость

    А тест что говорит?
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей