Ответ:

Т.к язык не указан, написать на с++

Программа и часть результата работы на скрине.

Объяснение:

В цикле проверяем каждое четырехзначное число.

Если остаток от деления его на 155 равен нулю, то выводим его.

===== PascalABC.NET =====

begin

 Range(1000,9999).Where(p -> p mod 155 = 0).Print

end.