Question

Написать программу поиска четырехзначного числа, которые при делении на 133 дает в остатке 125 ,а при делении на 134 дает в остатке 111 ( В ПАСКАЛЕ )

Answer 1

//PascalABC.NET v3.3 1633

begin

for var i:=1000 to 9999 do

 if (i mod 133 = 125) and (i mod 134 = 111) then

   writeln(i);

end.

Answer 2

Для написания программы поиска четырехзначного числа, которое при делении на 133 даёт в остатке 125, а при делении на 134 даёт в остатке 111, в Паскале, можно использовать простой перебор всех четырехзначных чисел. Ниже представлен пример программы на языке Pascal:

pascalCopy code
program FindNumber;

var
  num: integer;

begin
  for num := 1000 to 9999 do
  begin
    if ((num mod 133) = 125) and ((num mod 134) = 111) then
    begin
      writeln('Найдено число: ', num);
      break; // Если нужно найти только одно число, то можно закомментировать эту строку
    end;
  end;
end.

Этот код будет проверять все четырехзначные числа от 1000 до 9999 включительно и выводить число, которое удовлетворяет обоим условиям деления. Если вам нужно найти только одно такое число, то можете закомментировать строку с break. Если нужно найти все числа, удовлетворяющие условиям, то оставьте break как есть.