Question

Uses crt; var a:integer; begin for a:=10000 to 99999 do if (a mod 133=125) and (a mod 134=111) then writeln(a); end. из этой программы сделать программу с циклом repeat

Answer 1

Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.

Answer 2

Sure! Here's the equivalent Pascal program using the repeat loop instead of the for loop:

pascalCopy code
uses crt;

var
  a: integer;

begin
  a := 10000;
  repeat
    if (a mod 133 = 125) and (a mod 134 = 111) then
      writeln(a);
    Inc(a);
  until a > 99999;
end.

In this version, we initialize the a variable to 10000 before entering the repeat loop. The loop will continue executing until a exceeds 99999. The Inc(a) statement increments the value of a in each iteration of the loop, ensuring that it will eventually reach the exit condition of the loop.