SUMATORI.PAS
program sumatoria;
uses
crt;
var
uses
crt;
var
Suma, contador: integer;
begin
clrscr;
suma:=0;
for contador:= 5 to 20 do
begin
suma:=suma+contador;
writeln(suma,',');
end;
writeln('suma:',suma);
readkey;
begin
clrscr;
suma:=0;
for contador:= 5 to 20 do
begin
suma:=suma+contador;
writeln(suma,',');
end;
writeln('suma:',suma);
readkey;
End.
No hay comentarios:
Publicar un comentario