👤
NOKAUT3ZE
a fost răspuns

Scrieti programul in pascal.
Se citesc n, n>5 numere intregi.
a) Sa se calculeze produsul si media aritmetica a acestor numere.
b)Sa se calculeze produsul numerelor impare.

Răspuns :

KIRILLLZE
var  n, i, produs, produs_impar: integer;

begin
  readln(n);
  produs := 1;
  produs_impar := 1;
  if n > 5 then
 begin
    for i := 1 to n do
     begin
      produs := produs + n;
      if i mod 2 <> 0 then
        produs_impar := produs_impar * n;
    end;
     writeln(' Media aritmetica este ' + (produs / n));
    writeln(' Produsul numerelor este ' + produs);
    writeln(' Produsul numerelor impare este ' + produs_impar);
  end;
end.
Vezi imaginea KIRILLL
Vezi imaginea KIRILLL
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari