Red de conocimiento informático - Conocimiento del nombre de dominio - Programación Dede

Programación Dede

(1)

var i, s: entero largo;

Inicio

I:= 0;

s:= 0;

Repetir

I:= I+1;

Si modifico 2 & lt& gt0 entonces s:= s-(2 * I-1);

Si i mod 2=0 entonces s:= s+(2 * I-1);

Hasta I = 10;

Escribe;

Fin.

(2)

var i, j, s: entero largo

Inicio

I:= 0;

j:= 0;

s:= 0;

Repetir

I:= I+1;

Repetir

j:= j+1;

s:= s+2 * j-1

Hasta j = I

j:= 0;

Hasta I = 10;

Escribir;

Fin.