Question

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

Answer 1

А нет таких чисел!

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

Answer 2

Конечно, вот пример программы на языке Python, который находит все трехзначные числа, удовлетворяющие вашим условиям:

pythonCopy code
# Программа поиска трехзначных чисел, удовлетворяющих условиям

# Перебор чисел от 100 до 999
for num in range(100, 1000):
    # Проверка условий: остаток от деления на 43 равен 41 и остаток от деления на 47 равен 43
    if num % 43 == 41 and num % 47 == 43:
        print(num)

Этот код перебирает все трехзначные числа (от 100 до 999) и проверяет, соответствуют ли они вашим условиям (остаток от деления на 43 равен 41 и остаток от деления на 47 равен 43). Если число соответствует обоим условиям, оно выводится на экран.