Паскаль.Проверочная работа.

[s-andriano]

Сообщение от Stilet

var i,n:integer;
...

Не проверял, но думаю подойдет.

Я бы предплчел:

var i,j,n:integer;
begin
 for j:=167 to 1666 do begin {от 1002 до 9996}
  i := j*6;
  if ((i mod 10)+(i div 1000))=((i mod 1000 div 100)+(i mod 100 div 10)) then write(i:5);
 end;
 readln;
end.

В 6 раз короче цикл и на одно условие короче проверка.

[Stilet]

Тебе виднее. Я с математикой не оч. так чтоб. Она у меня хорошая, но почему-то хромает

[s-andriano]

Сообщение от Stilet

Тебе виднее. Я с математикой не оч. так чтоб. Она у меня хорошая, но почему-то хромает

Да тут ничего сложнее арифметики нет - просто, раз число должно делиться на 6, то проверять имеет смысл только числа кратные 6, следовательно, перебирать нужно с шагом 6.