Question

паскаль найдите все пятизначные числа которые делении на 133 дают в остатке 125 а при делении на 134 в остатке 111

Answer 1

var i:integer;
begin
for i:=10000 to 99999 do
if (i mod 133=125) and (i mod 134=111)
then writeln (i);
end.