program sumacincocien;
uses crt;
var n, suma: integer;
BEGIN
n:=0;
suma:=0;
for n:=2 to 100
begin
if n mod 2==0 then
writeln('El numero ',n, " es par");
end
END.
Pseudocodigo Pseint
Algoritmo sumaunoaldiez
Definir i,suma Como Entero;
i<-0;
suma<-0;
Mientras i<=10 Hacer
suma<-suma+i;
i<-i+1;
Escribir suma;
FinMientras
FinAlgoritmo
Puedes registrarte o validarte desde aquí.
Comentarios sobre la versión: 1.0 (1)
Pseudocodigo con ciclo For
Definir i,suma Como Entero;