Дали ова може да ти помогне ?!
program vezba 1;
var x,br:integer;
begin
writeln('Vnesi odreden broj');
Readln (x);
While x>0 do
br:=x+2;
Writeln('Broevite za 2 nagore se ', br);
readln;
end.
--- надополнето: Oct 6, 2011 5:44 PM ---
x div 10;
x div 100 mod 10;
x mod 100;
Вака мислам дека беше...