Вывести, в каком порядке карточки лежали в исходной стопке - Free Pascal
Формулировка задачи:
Карточки
Вася изготовил карточки, написав на них N первых заглавных букв латинского алфавита. Карточки Вася положил в стопку.
Дальше он берет первую сверху карточку и кладет ее в новую стопку. Далее вторую карточку он кладет вниз этой новой стопки, третью — наверх новой стопки, потом четвертую — опять вниз, следующую — наверх и т.д.
После этого оказалось, что карточки лежат строго по алфавиту, если просматривать их сверху вниз.
Напишите программу, которая выведет, в каком порядке карточки лежали в исходной стопке.
Входные данные. Вводится натуральное число N (N не превышает 26).
Выходные данные. Выведите буквы, написанные на карточках в исходной стопке, если ее просматривать сверху вниз (должны быть выведены заглавные латинские буквы без пробелов между ними).
Решение задачи: «Вывести, в каком порядке карточки лежали в исходной стопке»
textual
Листинг программы
const s='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; var t:string; n,i,j:integer; begin readln(n); if odd(n) then i:=(n+1) div 2 else i:=n div 2; j:=i+1;t:=''; repeat t:=t+s[i]+s[j]; i:=i-1;j:=j+1; until i=0; writeln(copy(t,1,n)) end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д