Răspunsuri

2014-10-15T22:40:36+03:00
Program nume;
Uses crt;
var i, n, prod : integer;

Begin
Clrscr;
   Writeln("Introduceti n");
   Write("n=");  Readln(n);
   i := 2;
   while(i<=n) do
Begin
   prod := 2;
   prod := prod * i;
   i := i+2;
End;
Writeln("Produsul numerelor este: ",prod);
Readkey.
End.

Doar prin una din instrucţiuni?
prin amindoua
Ele-s 3 :D
da..
prin toate,dara