паскаль

[katetakate]

помогите пожалуйста(((
нужно найти ошибки в этом фрагменте программы , которая ставит цифры в обратном поярдке
p:=n;
while p>=0 do
begin
a:= a + p mod 10;
p:=p div 10
end

все дано так, просто исправьте пожалуйста ошибки)

[Ybn2]

Сообщение от katetakate

помогите пожалуйста(((
нужно найти ошибки в этом фрагменте программы , которая ставит цифры в обратном поярдке
p:=n;
while p>=0 do
begin
a:= a + p mod 10;
p:=p div 10
end

все дано так, просто исправьте пожалуйста ошибки)

Во первых у вас a должно быть как String, во вторых while p>0; И того для Delphi:

Function (n:Integer):String; //Или Function (n:Integer):Integer;
Var
  p:integer;
  a:String;
Begin
p:=n;
while p>0 do
begin
   a:=a+IntToStr (p mod 10);
   p:=p div 10;
end;
Return:=a;  //Или Return:=StrToInt(a);
end.

[katetakate]

Большое спасибо