Вот код
uses
crt;
var
n,i:byte;
begin
clrscr;
i:=0;
for n:=7 to 100 do
begin
i:=i+2;
n:=n+i;
if n<100 then
write('n=', n);
break;
end;
readln;
end.
но он почему то выдает одну 9?
uses
crt;
var
n,i:byte;
begin
clrscr;
i:=0;
for n:=7 to 100 do
begin
i:=i+2;
n:=n+i;
if n<100 then
write('n=', n);
break;
end;
readln;
end.
repeat, а 5 - меньше чем 150... И опять все заново...
writeln ('n=',n); { <--- Когда здесь 133 }
i := 2*i; { <--- Тут i становится равным 128 }
n := n + i; { <--- N перескакивает через 256, и становится равно (133+128) mod 256 = 5 }
until n > 150;