Question

Помогите составить программу в паскале!!Пожалуйста!В квитанции есть пятизначное число. Отчётливо видны только две первые цифры - это 1 и 5; остальные три цифры стёрты. В среде программирования разработайте программу, которая найдёт это число, если известно, что оно кратно 57 и 67. (Подсказка: воспользуйтесь методом полного перебора.)

Answer 1

// методом перебора
// Ответ: 15276

const   m=57;
        n=67;
var     i,x:word;
        q:boolean;

begin
  i:=99;
  q:=true;
  while (i<1000) and q do begin
    i:=i+1;
    x:=15000+i;
    if (x mod m=0) and (x mod n=0) then
      q:=false;
  end;

  writeln(x);
end.