Question

se citeste un sir de nr intregi pana la intalnirea lui 0(0 nu face parte din sir) sa se afiseze suma nr din sir. la inceput se face cu while sau for?

Answer 1

PRogram P1;
var n,i,s:integer;
begin
s:=0;
repeat 
write('Introdu numerele=');readln(n);
s:=s+n;
until n=0;
writeln('Suma=',s);
readln;
end.
Derji , s tebia domasca la engleza :D