Вывести, в каком порядке карточки лежали в исходной стопке - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы