Pascal. Составить программу Найти произведение N первых натуральных чисел кратных 11

Question

Pascal. Составить программу Найти произведение N первых натуральных чисел кратных 11

Answer 1

var n,a,z:integer;

begin

 write('n= ');

 read (n);

 z:=1;

 for a:=1 to n do

   begin

     if (a mod 11 =0)

     then z:=z*a;

   end;  

 writeln(z);

end.

Comments

сейчас исправлю

---

да

---

наверное

---

да