Вопрос по информатике:
Дана строка. Удвоить каждый символ строки,выбрать из нее символы кратные 4 и напечатать её наоборот.
Поясняю, символы кратные 4-ем, это значит каждый 4-ый символ строки.
- 09.08.2015 12:25
- Информатика
- remove_red_eye 11301
- thumb_up 41
Ответы и объяснения 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
Delete(s1,i,1);
i:=i-4
end;
for i:=Length(s1) downto 1 do Write(s1[i]);
Writeln
end.
Примеры
Введите строку: Слово
оовоолСС
Введите строку: 123456789
99877655433211
- 01.01.1970 00:00
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.