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

Поясняю, символы кратные 4-ем, это значит каждый 4-ый символ строки.

"выбрать из нее символы кратные 4 и напечатать их (т. е. именно выбранные символы) напечатать наоборот".

Question

Информатика

Еня

22 февраля, 10:43

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

Поясняю, символы кратные 4-ем, это значит каждый 4-ый символ строки.

"выбрать из нее символы кратные 4 и напечатать их (т. е. именно выбранные символы) напечатать наоборот".

+5

Ответы (1)

Знаете ответ на вопрос?

Фрося · Answer 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 i>=4 do begin

Write (s1[i]) ;

i:=i-4

end;

Writeln

end.

Примеры

Введите строку: 123456789

8642

Введите строку: Слово

вл