** входе двухзначное число ** выходе наоборот

Question

На входе двухзначное число на выходе наоборот

Answer 1

Var c1,c2:char;
       x:string;
beginwriteln('введите двухзначное число');
readln(x);
if length(x)=2 then begin
c1:=x[1];
c2:=x[2];
writeln('число наоборот = '+c2+c1);
end
else writeln('ошибка, невероне число');
end.

Comments

а можно с командами mod и div

---

команда mod - получение остататка от деления

---

div - деление

---

как их тут использовать то?) Можно по приколу на ноль делить или получать четность/нечетность :) Но это уже лишнее. ТЗ была другой.

---

пфф,ну ладно.спасибо)