👤
NOKAUT3EZ
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 :

KIRILLLEZ
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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari