Actividad 5

¿Cuál será el programa que imprima los números 15,20,25,30, …150 con la proposición WHILE?

cont:=10

While cont<100 do

Begin

  cont:=cont+2;

  writeln(cont)

End;

Readln;

End.

¿Proponga un programa que acepte números e imprima el número, el programa terminara cuando se introduzca el número -999?

Cont:=0;

While cont=-999 do

begin

 Cont:=cont+1;

 Readln(cont);

 Writeln(cont);

End;