Question

Вывести на экран числа от 1000 до 9999 такие, что среди цифр есть цифра 3. на языке Pascal

Answer 1

var i, a, b, c, d: integer;

begin

   for i:= 1000 to 9999 do

   begin

       a := i div 1000;

       b := (i mod 1000) div 100;

       c := (i mod 100) div 10;

       d := i mod 10;

       if (a = 3) or (b = 3) or (c = 3) or (d = 3) then write(i, ' ');

   end;

end.