Question

НАПИСАТЬ ПРОГРАММУ: найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111. С помощью паскаля

Answer 1

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