Question

Ипполит задумал трёхзначное число, которое при делении на 15 даёт в
остатке 11, а при делении на 11 даёт в остатке 9. Напишите программу,
которая находит все такие числа. На паскале

Answer 1

Відповідь:

Пояснення:

program SearchNumbers;

var

 Num: integer;

begin

 for Num := 100 to 999 do

 begin

   if (Num mod 15 = 11) and (Num mod 11 = 9) then

   begin

     writeln('Найдено число: ', Num);

   end;

 end;

 readln;

end.