СРОЧНО!!!Напишите функцию в Паскале,которая "разворачивает" десятичную запись числа...

Question

СРОЧНО!!!Напишите функцию в Паскале,которая "разворачивает" десятичную запись числа наоборот,например,из 123 получается 321,а из 3210-0123

Answer 1

Var
 l,i:longint;
S:String;
begin
 Read(S);
 l:=length(S);
For i:=l downto 1 do Write(S[i]); 
end.

Comments

не работает

---

какие ошибки

---

Function F(y:longint):longint;
var
x:longint;
begin
x:=0;
While x=0 do x:=random(6);
F:=x;
end;

begin
randomize;
Writeln(F(1),' ',F(2));
end.

---

сам проверил

---

работает

---

спасибо большое еще раз))

---

спасибо в карман не положишь)))

---

спокойной ночи

---

благотворительностью тоже иногда полезно заниматься)

---

спокойной ночи