Т.к язык не указан, написать на с++
Программа и часть результата работы на скрине.
Объяснение:
В цикле проверяем каждое четырехзначное число.
Если остаток от деления его на 155 равен нулю, то выводим его.
===== PascalABC.NET =====
begin
Range(1000,9999).Where(p -> p mod 155 = 0).Print
end.
