Цитата:
Сообщение от Мартышонок
4. Написать программу поиска четырёхзначного числа, которое при делении на C даёт в остатке B, а при делении на B даёт в остатке D
|
var
i,c,b,d:integer
begin
readln(c,b,d);
for i:=1000 to 9999 do
if (i mod c = b) and (i mod b =d) then writeln(i);
end.