Нужно переделать программу с циклом по параметру в циклы с пост- и предусловием (repeat и while)

@pers775 · Регистрация: 06.04.2015

Author24 — интернет-сервис помощи студентам

Никак не получается(

Pascal

program e1;
uses crt;
var d,r,u,g: integer;
begin
for d:=1 to 9 do
for r:=0 to 9 do
for u:=0 to 9 do
for g:=1 to 9 do
if (((d*1000)+(r*100)+(u*10)+g)-((g*1000)+(u*100)+(r*10)+d)=2727)
and (d<>r) and (d<>u) and (d<>g) and (r<>u) and (r<>g) and (u<>g) then
writeln(d,r,u,g,'-',g,u,r,d,'=',((d*1000)+(r*100)+(u*10)+g)-((g*1000)+(u*100)+(r*10)+d));
readln;
end.

@Constantin Cat · 06.04.2015, 13:31

Pascal

d:=1;
repeat
  r:=0;
  repeat
    u:=0;
    repeat
      g:=1;
      repeat
        . . .
        inc(g);
      until g>9;
      inc(u);
    until u>9;
    inc(r);
  until r>9;  
  inc(d);
until d>9;
 
d:=1;
while d<=9 do
  begin
    r:=0;
    while r<=9 do
      begin
        u:=0;
        while u<=9 do
          begin
            g:=1;
            while g<=9 do
              begin
                . . .
                inc(g);
              end;
            inc(u);
          end;
        inc(r);
      end;
    inc(d);
  end;

	06.04.2015, 13:31