Дана строчка. Удвоить каждый знак строки,избрать из нее символы кратные 4

Дана строчка. Удвоить каждый знак строчки,избрать из нее символы кратные 4 и напечатать её наоборот.
Объясняю, знаки кратные 4-ем, это означает каждый 4-ый символ строчки.
"избрать из нее знаки кратные 4 и напечатать их (т.е. конкретно выбранные знаки) напечатать напротив".

Задать свой вопрос
1 ответ
Var
  s,s1:string;
  i,n:integer;
begin
  Write('Введите строку: '); Readln(s);
  s1:='';
  for i:=1 to Length(s) do s1:=s1+s[i]+s[i];
  n:=Length(s1);
  i:=n-(n mod 4);
  while igt;=4 do begin
    Write(s1[i]);
    i:=i-4
    end;
  Writeln
end.

Образцы
Введите строчку: 123456789
8642

Введите строку: Слово
вл
Инна
Спасибо!
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт