Question

Se da un numar natural n(n<10000). Sa se afiseze: a) ultima cifra a acestui numar. b) penultima cifra a acestui numar. c) restul si catul impartirii numarului respectiv la cifra 9.Sa se scrie un program in Pascal

Answer 1

Var n,c,r,u,p: integer;

Begin
read(n);
u:=n mod 10;
p:=(n div 10) mod 10;
r:=n mod 9;
c:=n div 9;
writeln('Ultima cifra:',u);
writeln('Penultima cifra:',p);
writeln('Restul impartirii:',r);
writeln('Citul:',c);
End.