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

Question

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

Answer 1

Вроде так
var i:word; 
begin 
Writeln('mod 133 = 125:'); 
for i:=10000 to 99999 do if (i mod 133 = 125) then Write(i,' '); 
Writeln; Writeln('mod 134 = 111:'); 
for i:=10000 to 99999 do if (i mod 134 = 111) then Write(i,' '); 
readln();
end.