Question

Знайти всі трьохзначні числа, в яких є цифра 7 та якi кратні 7. в Паскаль абс пжпжпжпж срочно​

Answer 1

program FindNumbers;

var

 num: integer;

begin

 for num := 100 to 999 do

 begin

   if (num mod 7 = 0) and ((num div 100 = 7) or ((num div 10) mod 10 = 7) or (num mod 10 = 7)) then

   begin

     writeln(num);

   end;

 end;

end.