Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем, в обратном порядке, все
10-11 класс
|
символы, расположенные на нечетных позициях.
var a, b, c, i, n :integer;
s, p:string;
begin
readln (s);
for i:=1 to length (s) do
if i mod 2 = 0 then p:=p+s[i];
for i:=length (s) downto 1 do
if i mod 2 <> 0 then p:=p+s[i];
writeln (p);
end.
var s,s1,s2:string;
i,l:integer;
begin
readln(s);
i:=1; s1:=s; l:=length(s);
for i:=1 to l div 2 do begin
s1[i]:=s[i*2];
s1[l-i+1]:=s[(i-1)*2+1];
end;
if (l mod 2=1) then s1[l-i+1]:=s[(i-1)*2+1];
writeln(s1);
end.
в чём ошибка. При вводе Hello, world! пропадает восклицательный знак и получается el,wrd lo olH
Другие вопросы из категории
числами A и C".
113
213Q
1A5H
1001011B
4 минуты, ее результаты записываются в файл, сжатие данных не производится.
Нужно найти размер полученного файла.
ВНИМАНИЕ!!!
МНЕ НУЖНО ОБЬЯСНЕНИЕ РЕШЕНИЯ ПОДРОБНО!!!
а) 101010+1101
б) 1010+1010
в) 10101+111
Читайте также
наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.
помогите пожалуйста составить программу в Паскале!!
Например, 153=1³ + 5³ + 3³.
Входная строка содержит два натуральных числа- значения а и б.
Входные данные
Входная строка содержит два натуральных числа - значения а и б, разделенных пробелами. Гарантируется, что а≥б.
Выходные данные
Программа должна вывести в одну строчку все числа Армстронга на отрезке а, б, разделив их пробелами. если таких чисел нет, программа должна вывести -1.
Пояснения
Из массива (1, 2, 3, 4, 5, 6, 7, 8) нужно получить массив (4, 3, 2, 1, 8, 7, 6, 5).
2. Сдвинуть все элементы массива на одну позицию влево (циклически). Первый элемент должен оказаться на месте последнего.
3. Сдвинуть все элементы массива на одну позицию вправо (циклически). Последний элемент должен оказаться на месте первого.