Question

Вывести все числа которые делятся на 11 и 17 до 1000 Паскаль

Answer 1

Ответ:

var n: integer;

begin

 for n := 1 to 1000 do

   if (n mod 11 = 0) and (n mod 17 = 0) then

     writeln(n);

end.

Объяснение: