Kompiluje w dev pascal;
Wszystko wyglada dorbze ale wywala mi taki bład jw.
Kod:
program Untitled;
var
n, b, i,d, c,e, f: integer;
label koniec;
begin
c:=0;
d:=0;
f:=0;
read(n);
for i:=2 to 8 do
begin
b:=n;
while b >= 0 do
begin
if c>=e then
f:=f+1;
if f=4 then
begin
writeln('TAK');
goto koniec;
end;
end;
b:=b div i;
c:=e;
c:=n mod i;
end;
if i=8 then
writeln ('nie');
koniec;
readln();
end.