Código de Pascal/Turbo Pascal

Código de Pascal/Turbo Pascal - Suma del 1 al 10

Val: 12

Suma del 1 al 10

Publicado el 18 de Febrero del 2021 por Henry

4.242 visualizaciones desde el 18 de Febrero del 2021

Desarrolle un algoritmo que realice la sumatoria de los números enteros comprendidos entre el 1 y el 10, es decir, 1 + 2 + 3 + …. + 10.

Free Pascal o Turbo Pascal

Publicado el 18 de Febrero del 2021

4.244 visualizaciones desde el 18 de Febrero del 2021

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

        begin

                writeln('El numero ',n, " es par");

end

end

END.

18 de Febrero del 2021

Posdata, se me olvido poner que usa libreria CTR.

Pseudocodigo con ciclo For

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

	Escribir suma;

FinAlgoritmo

Responder

http://lwp-l.com/s6891

Adivina un numero de 1 al 63 que pensaste

Convertir un número arábigo a romano. Entre 1 y 1000.