Задача на выяснение чисел.

[BDA]

Нужен цикл и метки одновременно?

var
  x: integer;
Label 1;
Begin
  for x := 0 to 9 do
  begin
    if (900 + 10 * x + 7) mod 3 <> 0 then goto 1;
    writeln(900 + 10 * x + 7);
    1:;
  end;
End.

[Treisi]

Да,спасибо)

[Treisi]

А в моём что не так было,что-то понять не могу?)

[BDA]

Честно говоря, странно, что он вообще выводил 927, так как ни одного перехода по метке там нет.

[Treisi]

Фух,помучался и вроде как вывел:

Var x:integer;
Label 1,2;
Begin
x:=1;
1: if(900+10*x+7) mod 3=0 then writeln(900+10*x+7); if x>9 then goto2;
x:=x+1; goto 1;
2:End.

[BDA]

Да, так можно обойтись без циклов, только сейчас проверяются x = 1..10, т.е. 10 лишняя проверяется тоже.

Var
  x: integer;
Label 1, 2;
Begin
  x := 1;
  1: if x > 9 then goto 2;
  if (900 + 10 * x + 7) mod 3=0 then writeln(900 + 10 * x + 7);
  inc(x);
  goto 1;
  2:
End.