Написать программу в Паскале 8)Найдите хотя одно натуральное число, которое делится **...

Question

Написать программу в Паскале
8)Найдите хотя одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, ..., 10 дает в остатке 1

Answer 1

Const N=11;
var i,d,k:integer;
begin
  k:=0;
  repeat
  k:=k+N;
  d:=0;
  for i:=2 to 10 do if k mod i = 1 then d:=d+1;
  until (d=9) or (K>32000);
  if d=9 then writeln('Искомое число = ',K)
         else writeln('Число не найдено');
end.