👤
a fost răspuns

Am nevoie de ajutor in Turbo Pascal. Trebuie 2 programe care aduna numerele pare, un program folosind For , si altul folosind While. Am nevoie mare ajutati-ma va rog frumos.

Răspuns :

for i:=1 to n do
Begin
Readln(x);
if x mod 2 = 0 then s:=s+x;
end;
Writeln(s);

Cu while:
while (i<=n) do
Begin
i:=i+1;
Readln(x);
if x mod 2 = 0 then s:=s+x;
end;
Writeln(s);
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari