ПАСКАЛЬ Дано натуральное число, получить число, образованные при прочтении справа налево...

Question

ПАСКАЛЬ Дано натуральное число, получить число, образованные при прочтении справа налево X=317 y=70

Comments

какое число дано? и при чем тут x и y?

---

При прочтении справа налево 317 и 70,переменные для удобства обозначения.

---

то есть должно получиться 713 и 7? Числа вводить с клавиатуры или они так и должны быть присвоены переменным икс и игрек?

---

Насколько я понимаю, данные числа должны вводится с клавиатуры в поле ввода.

---

не понятное задание

---

после этого вопрос я перестал изучать програмирование

---

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

Answer 1

var

   a, b : integer;

begin

   write('введите число: ');

   readln(a);

   while a > 0 do begin

       b := b*10+(a mod 10);

       a := a div 10;

   end;

   writeln(b);

end.

Answer 2

Var a:string;
i:Integer;
begin
read(a);
for i:=Length(a) downto 1 do
write(a[i]);
end.
полегче надо