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

Дана строка. Удвоить каждый символ строки,выбрать из нее символы кратные 4 и напеч??тать её наоборот. Поясняю, символы кратные 4-ем, это значит каждый 4-ый символ строки. "выбрать из нее символы кратные 4 и напечатать их (т.е. именно выбранные символы) напечатать наоборот".
Гость
Ответ(ы) на вопрос:
Гость
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 Введите строку: Слово вл
Не нашли ответ?
Ответить на вопрос
Похожие вопросы