Question

Написать программу в паскале: получить в убывающем порядке все двузначные числа, в десятичной записи которых нет цифры 5.

Answer 1

Var
    i: integer;

begin
    for i := 99 downto 10 do
        if (i mod 10 <> 5) and (i div 10 <> 5) then
            write(i, ' ');
end.

Answer 2

Program dig_2_no5_downto;

var
   i,a,b: integer;

begin
  i := 99;
  while i >= 10 do
    begin
      a := i div 10;
      b := i mod 10;
      if (a <> 5) and (b <> 5) then
        write(i, ' ');
      i := i - 1;
    end;
end.