Question

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.

Answer 1

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);