Dota procedūra:
procedureProceduura(varn:integer);vartemp:integer;begintemp:=0;while(n>0)dobegintemp:=temp+nmod10;n:=ndiv10;end;n:=temp;end;
 
Sākumā mainīgā Skaitlis vērtība ir 782.
Ieraksti tā vērtību pēc komandas Proceduura(Skaitlis)!
Lai iesniegtu atbildi un redzētu rezultātus, Tev nepieciešams autorizēties. Lūdzu, ielogojies savā profilā vai reģistrējies portālā!