ho una variabile byte e una longinteger
ho un ciclo if not ma non si verifica mai...
il ciclo è questo:
(e solo la parte dei cicli integrati.. c'è del resto sopra il programa mi deve recistarre in numb il nomero di volte che serve dividiere la variabile byte affinche sia minore di 10...
Codice: Seleziona tutto
begin
repeat
begin
a:=a div 2;
numb:=numb+1;
writeln('a=',a);
if
not a<10
then
write('rediv');
end