Question

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

Answer 1

Ответ:

Var  i:integer;

Begin

for i := 100 to 999 do

   if (i mod 15 = 11) and (i mod 11 = 9)

       then writeln(i);

End.

Объяснение:

Answer 2

Ответ:

Vari:integer;beginfor i:=100 to 999 do beginif (i mod 15=11) and (i mod 11=9) thenwrite(i+' ');end;end.

Answer 3

Вот пример программы на языке Паскаль, которая находит все трёхзначные числа, удовлетворяющие условиям:

pascalCopy code
program FindNumbers;
var
  num: integer;

begin
  for num := 100 to 999 do
  begin
    if (num mod 15 = 11) and (num mod 11 = 9) then
      writeln(num);
  end;
end.

Эта программа перебирает все трёхзначные числа от 100 до 999 и проверяет условия деления на 15 и 11. Если число соответствует обоим условиям, оно выводится на экран.