Răspuns :
Răspuns:
Explicație:
program SumapareNFor;
var n,num,suma:integer;
begin
write('n='); read(n);
suma:=0;
for num:=1 to n do
if num mod 2=0 then suma:=suma+num;
writeln('suma parelor <=N este ',suma);
end.
program sumaParelorNWhile;
var n,par,suma:integer;
begin
write('n='); read(n);
suma:=0; par:=2;
while par<=n do
begin
suma:=suma+par;
par:=par+2;
end;
writeln('suma parelor <=N este ',suma);
end.
program sumaPareNRepeat;
var n, par, suma:integer;
begin
write('n='); read(n);
suma:=0;
par:=0;
repeat
suma:=suma+par;
par:=par+2;
until par>n;
writeln('suma parelor <=N este ',suma);
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.