составьте программу в Pascal abc, утраивающую каждую буковку в заданной строке.пример

Составьте программку в Pascal abc, утраивающую каждую букву в заданной строке.
пример ввода: кот
пример вывода : кккоооттт

Задать свой вопрос
2 ответа
Var S : String;
i : Byte;
Begin
  Readln(S);
  For i:=Length(S) downto 1 do Insert(S[i]+S[i],S,i);
  Writeln(S);
end.

Var S,T:string;
i,N:integer;
begin
Readln(S);
N:=length(S);
For i:=1 to N do
T:=T+S[i]+S[i]+S[i];
Writeln(T);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт