👤
Septelicialehandrozone
a fost răspuns

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.​

Răspuns :

Rosion282zone

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.

Vă mulțumim că ați vizitat site-ul nostru web care acoperă despre Informatică. Sperăm că informațiile furnizate v-au fost utile. Nu ezitați să ne contactați dacă aveți întrebări sau aveți nevoie de asistență suplimentară. Ne vedem data viitoare și nu ratați să marcați.


Zone Alte intrebari