PROGRAM EXAM;
USES WINCRT;
VAR A:ARRAY[1..20]OF INTEGER;
P,J,I,N:INTEGER;
BEGIN
READ(N); I:=0;
WHILE N<>0 DO
BEGIN
P:=N MOD 10;
IF P<>0 THEN
BEGIN
A[I]:=P;
INC(I);
END;
N:=N DIV 10;
END;
P:=1;
FOR J:=1 TO I-1 DO
BEGIN
N:=N+A[J]*P;
P:=P*10;
END;
WRITE(N);
END.
مجموع مقسوم عليه
هاي يك عدد