👤
DORINIVANOV19ZE
a fost răspuns

elaborati o functie care calculeaza produsul numeral de la 1 la noi cu conditi a că acestea sa fie impare diviziile cu 2 și 3

Răspuns :

DAIA123ZE
nu au cum sa fie impare si divizibile in acelasi timp cu 2 sau 6

POWER1999ZE

Program P1;

type vector = array[1..100] of real;

var a:vector;i,n: integer;sp,si:real;

function sumapare(a:vector):real;

var i:integer;sp:real;

begin

sp:=0;

for i:=1 to n do

if  i  mod 2= 0 then sp:=sp+a[i];

sumapare:=sp;

end;

function sumaimpare(a:vector):real;

var i:integer;si:real;

begin

si:=0;

for i:=1 to n do

if   i  mod 2= 1 then si:=si+a[i];

sumaimpare:=si;

end;

begin

write('n=');readln(n);

writeln('introdu elementele tabloului:');

for i:=1 to n do readln(a[i]);

sp:=sumapare(a);si:=sumaimpare(a);

if  sp=si then writeln('Da') else writeln('nu');

readln

end.

Bafta

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!


Ze Lesson: Alte intrebari