Question

Sa se scrie un program care calculeaza si afiseaza la ecran produsul numerelor naturale mai mici si egale ca N(cu instructiunea while)

Answer 1

Răspuns:

var

 n, i, y: integer;

begin

 Writeln('Enter n ');

 Readln(n);

 I := n;

 y := 1;

 while i > 1 do

 begin

   y := y * i;

   i := i - 1;

 end;

 Writeln('Factorial  ', N, ' =  ', y);

 Readln;

end.