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

[Treisi]

Помогите,пожалуйста,с несложной задачей.Дано число 9( )7.Нужно подставить цифры вместо пустого места так,чтобы число делилось на 3,и вывести его на экран.Надо вывести все варианты,а не только одно. И как можно составить программку,используя в ней эту формулу: 900+х*10+7?

[Son Of Pain]

Самый простой способ: делаем вложенный цикл

for i := 0 to 9 do
	for j := 0 to 9 do
			если 9000 + (100 * i) + (10 * j) + 7 делится на 3 без остатка - вывести его на экран.

UPD: Да, там одна пропущенная цифра, вложенный цикл не нужен. Двоится в глазах перед сном )

[BDA]

for x := 0 to 9 do
    if (900 + 10 * x + 7) mod 3 = 0 then

[Treisi]

Никак не получается составить программу,не могу понять,как записать всё это.

[BDA]

Ну покажите, как попытались записать.

[Treisi]

var x:integer;
Begin
for x:=0 to 9 do
if (900+10*x+7) mod 3=0 then writeln('');
End.

[BDA]

Почти.

var
  x: integer;
Begin
  for x := 0 to 9 do
    if (900 + 10 * x + 7) mod 3 = 0 then writeln(900 + 10 * x + 7);
End.

Или

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

[Treisi]

Спасибо большое!)

[Treisi]

А можно как-то записать то же самое при помощи цикла и меток?

[Treisi]

Попытался составить сам,вот что вышло:

Var x:integer; Label 1;
Begin
x:=1:
1: if (900+10*x+7) mod 3=0 then writeln(900+10*x+7) else x:=x+1;
End.

В итоге операции всё просто зацикливается на одном числе 927,дальше не идёт. Что мне надо исправить?