👤
a fost răspuns

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

Răspuns :

GRIGORE2018ID

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.

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari