Дана строка. Удвоить каждый символ строки,выбрать из нее символы кратные 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
Введите строку: Слово
вл
Не нашли ответ?
Похожие вопросы