Pascal/Turbo Pascal - urgente! invertir un numero de 4 cifras en pascal

   
Vista:

urgente! invertir un numero de 4 cifras en pascal

Publicado por dora (2 intervenciones) el 10/11/2011 08:26:41
tengo una tarea muy urgente por fa como invierto un numero de 4 cifras para el programa free pascal.envienme el algoritmo porfa
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

urgente! invertir un numero de 4 cifras en pascal

Publicado por ramon (2072 intervenciones) el 10/11/2011 16:24:24
{Es esto lo que pides}

program invertir;
uses
crt;
var
n : longint;
dato : string[4];


procedure entrada;
var
i : integer;
begin
gotoxy(4,4);write('Entre Numero 4 Cifras : ');
gotoxy(28,4);readln(n);
str(n,dato);
for i := length(dato) downto 1 do
write(dato[i]);
end;

begin
clrscr;
entrada;
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar