Язык програмирования - Pascal ABCДано натуральное число N и последовательность из N...

Question

Язык програмирования - Pascal ABCДано натуральное число N и последовательность из N элементов. Требуется вывести эту последовательность в обратном порядке. Примечание. В программе запрещается объявлять массивы и использовать циклы (даже для ввода и вывода). Входные данные В первой строке входных данных содержится натуральное число N (N ≤ 103). Во второй строке через пробел идут N целых чисел, по модулю не превосходящих 1000, – элементы последовательности. Выходные данные Требуется вывести заданную последовательность в обратном порядке. Примеры Входные данные 2 3 4 Выходные данные 4 3

Comments

На си шарпе подойдет?

---

Program _1;Const k=1000;type MyArray =array [1..k] of integer;var a:MyArray; n,i:integer;beginreadln(n);for i:=1 to n do read(a[i]);for i:=n downto 1 do write(a[i],' ');end.

---

не

---

ШКОЛОТА!!!

---

Program _1;var a,n,i:integer;a :array [1..10] of integer;beginreadln(n);for i:=1 to n do read(a[i]);for i:=n downto 1 do write(a[i],' ');end.

---

Неверно писать язык Pascal ABC. Во-первых, этот проект закрыт ровно 10 лет назад и компилятор этот достать уже непросто. А во-вторых, в Pascal ABC это задание решить НЕВОЗМОЖНО.

---

begin ReadSeqInteger(ReadlnInteger).Reverse.Println;end.

---

Тут действительно не нужны не массивы, ни циклы. Сказано же, что последовательность.

---

как хотите

---

только на паскале

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqInteger(ReadlnInteger).Reverse.Println

end.

---

Comments

Раз нельзя объявлять чего-то там, то и не будем ))))

---

Ну вот и я о том.

---

строка, конечно, это не последовательность в прямом смысле этого слова

---

а как же s := ReadString() ?

---

Нельзя, поскольку говорится о вводе последовательности с элементами через пробел.

---

можно еще через строку это сделать, но там вообще первое число не нужно

---

Спасибо

---

Конечно, можно строку инвертировать.