Question

1.Program care va calcula suma numerelor de la 1 la n unde n<=100. IN PASCAL

Answer 1

program suma;

var n,s:integer;
begin
n:=1;s:=1;
while (n<=100) do
begin
s:=s+n;
n:=n+1;
{writeln(s); pentru verificare 2 4 7 11 ...5051}
end;

writeln(s);readln;
end.

rezultat afisat 5051