Составьте программу поиска трехзначных чисел которые при делении на 43 дают в остатке 41 а при делении на 47 дают в остатке 43

А нет таких чисел!var  i:integer;begin  for i:=1 to 10000 do  // по условиям задачи i:=1 to 999    if (i mod 43 = 41) and (i mod 47 = 43) then      writeln(i);end.Результаты вывода:10303051507270939114Так что минимальное число, удовлетворяющее требованиям, 1030, но оно не трехзначноеВот более продвинутый алгоритм, делающий то же самое:var  n43:integer;begin  n43:=127;  repeat    n43:=n43+43;  until (n43 mod 43 = 41) and (n43 mod 47 = 43); //добавить and (n43<1000)  writeln(n43)end.Результат вывода:1030