Question

Scrieți un program, în Pascal, care va calcula suma numerelor impare și produsul celor pare din intervalul 1..34. Programul în Pascal ​

Answer 1

Răspuns:

var s,p,i:integer;

begin

s=0;

p=1;

for i:=1 to 34 do

    if i mod 2 =0 then

                         s:=s+i

      else

           p:=p*i;

writeln("s=",s);

writeln("p=",p);

end.

Explicație:

Se parcurge intervalul si se verifica daca i este par, calculand s, in caz contrar se calculeaza p;