Составьте программу поиска трехзначных чисел которые при делении на 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. Результаты вывода: 1030 3051 5072 7093 9114 Так что минимальное число, удовлетворяющее требованиям, 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