Question

Составить Алгоритм поиска 4-х значного числа ,которое при делении на 133 даёт в остатке 125, а при делении на 134 даёт в остатке 111.

Answer 1

program senya;

var

a1, a2, a3, a4: integer;

begin

for a1 := 1 to 9 do

for a2 := 0 to 9 do

for a3 := 0 to 9 do

for a4 := 0 to 9 do

if (a1 * 1000 + a2 * 100 + a3 * 10 + a4) mod 133 = 125 then

writeln (a1,a2,a3,a4);

if (a1 * 1000 + a2 * 100 + a3 * 10 + a4) mod 134 = 111 then

writeln (a1,a2,a3,a4);

end.