RO Questions
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 că ați ales să vizitați platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile oferite v-au fost de ajutor. Pentru orice întrebare sau clarificare suplimentară, echipa noastră vă stă la dispoziție. Revenirea dumneavoastră ne onorează – nu uitați să ne salvați în lista de favorite!


RO Questions: Alte intrebari