Može ovako:
Code:
program nekiTamo;
var broj, stotine, desetice, jedinice : integer;
begin
readln(broj);
stotine:=broj div 100;
desetice:=(broj - stotine*100) div 10;
jedinice:=broj - stotine*100 - desetice*10;
writeln('stotine: ', stotine);
writeln('desetice: ', desetice);
writeln('jedinice: ', jedinice);
readln;
end.
ili ovako:
Code:
...
stotine:=broj div 100;
broj:=broj mod 100;
desetice:=broj div 10;
jedinice:=broj mod 10;
...
ili, npr., ovako:
Code:
...
stotine:=broj div 100;
desetice:=(broj mod 100) div 10;
jedinice:=(broj mod 100) mod 10 ;
...
Postoji gomila načina...