Question

Scrieți un program Pascal, care citește de la tastatură un număr n și calculează suma numerelor pare de la 2 până la acest număr n. Se recomandă de utilizat ciclul „for” cu verificarea parității fiecărui număr sau „while” cu modificarea variabilei de fiecare dată cu doi. Dacă veți scrie un program care calculează suma tuturor numerelor (nu doar a celor pare) veți primi maxim 7 puncte.​

Answer 1

Răspuns:

program T;

uses wincrt;

var n,i:Integer;

a,x:real;

begin

readln(n);

a:=n;

if(n mod 2=0) then

begin

x:=(a/2*a/2+a/2);

end

else

begin

a:=a-1;

x:=(a/2*a/2+a/2);

end;

a:=0;

for i:=0 to n do

begin

a:=i+a;

end;

writeln('suma numerelor pare de pine la ',n,' este: ',x);

writeln('suma tuturor numerelor de pina la ',n,' este: ',a);

end.