Zadatak iz Pascala

[ babukica @ 30.01.2008. 21:19 ] @

Molim sve koji znaju da mi pomognu

Zadatak:Napisi program koji broj unesen sa tastature ispisuje obrnutim redom cifara.Korisnik sa tastature
unosi brojeve sve dok se ne unese jednocifreni broj.

[ reiser @ 30.01.2008. 22:48 ] @

Otprilike ovako, iz glave:

Code:

var
  broj : Integer;
  tmp  : Integer;
  C1   : Integer;
begin
  repeat
    ReadLn(broj);
    tmp := broj;
    While tmp > 0 Do
    Begin
      Write(tmp mod 10);
      tmp := tmp div 10;
    End;
    WriteLn;
  until broj = 0;
end.