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

  • Автор темы Snuppy
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

Snuppy

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

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

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


Спасибо
 
S

Snuppy

#3
код:
Код:
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 :)

правильно?

Код:
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;
 
Статус
Закрыто для дальнейших ответов.