HOLA
les dejo algo muy basico pero de gran ayuda para quienes se inician en programacion, en este caso, pascal, el mismo ejercicio con estructura iterativa FOR y WHILE
SLDS
program sumatoria;
uses crt;
var
num, suma:integer;
begin
suma:=0;
WRITELN('suma +1 con FOR');
WRITELN('introduzca el limite de la sumatoria');
READLN(num);
FOR num:=0 TO 9 DO
begin
suma:=num+1;
WRITELN (suma);
end;
readkey
end.
Ahora con WHILE
program sumawhile;
uses crt;
var
num, suma: Integer;
begin
WRITELN ('suma +1 usando WHILE');
WRITELN('introduzca el limite de la sumatoria');
suma:=0;
READLN (num);
WHILE num <= 9 DO
begin
num:=num+1;
suma:= num;
writeln (suma);
end;
readkey
end.
les dejo algo muy basico pero de gran ayuda para quienes se inician en programacion, en este caso, pascal, el mismo ejercicio con estructura iterativa FOR y WHILE
SLDS
program sumatoria;
uses crt;
var
num, suma:integer;
begin
suma:=0;
WRITELN('suma +1 con FOR');
WRITELN('introduzca el limite de la sumatoria');
READLN(num);
FOR num:=0 TO 9 DO
begin
suma:=num+1;
WRITELN (suma);
end;
readkey
end.
Ahora con WHILE
program sumawhile;
uses crt;
var
num, suma: Integer;
begin
WRITELN ('suma +1 usando WHILE');
WRITELN('introduzca el limite de la sumatoria');
suma:=0;
READLN (num);
WHILE num <= 9 DO
begin
num:=num+1;
suma:= num;
writeln (suma);
end;
readkey
end.