Question

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

Answer 1

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

Answer 2

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