👤
Mariagoreanu9
a fost răspuns

eleborati un program care sa calculeze pt primii n termeni:2*4*6*8...2n prin inst for while repeat

Răspuns :

Anonymous02
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.