1. Hallar la suma de tres números. Proceso sumatoria_de_3_num sumatoria_de_3_numeros eros defnir num1,num2,num3,suma como reales; Escribir "Ingrese primer numero:"; Leer num1; Escribir "Ingrese Segundo numero:"; Leer num2; Escribir "Ingrese tercer numero:"; Leer num3; suma!num1num2num3; Escribir "El #alor de la Suma es:",suma;
$inProceso
2. Hallar el área de un cuadrado. Proceso area_de_un_cuadrado area_de_un_cuadrado %efnir lado,area como reales; Escribir "Ingresar el lado del cuadrado:"; Leer lado; area!lado&lado; Escribir "El area del cuadrado es:" ,area; $inProceso 3' Hallar el área del triángulo. Proceso (rea_del_triangulo %efnir alt,base,area como reales; Escribir "Ingrese altura del triangulo"; Leer alt; Escribir "ingrese base del triangulo"; Leer base; area!)alt&base*+2; Escribir "El area del triangulo es:", area; $inProceso
4. Calcular el 25% de descuento del precio de un artefacto. Proceso descuento_del_2 descuento_del_2 %efnir #alor,precio como reales; Escribir "Ingrese #alor del arte-acto:"; Leer #alor; precio!)#alor!)#alor&.'2**; Escribir "El precio del arte-acto con el 2/ de descuento es:",precio; $inProceso
5. Calcular el promedio de uno de sus cursos. Proceso promedio_de_curso promedio_de_curso %efnir P01,P02,P03,P0,E$I,Prom como reales; Escribir "ingrese nota de la P01"; Leer P01; Escribir "ingrese nota de la P02"; Leer P02; Escribir "ingrese nota de la P03"; Leer P03; Escribir "ingrese nota de la P0"; Leer P0; Escribir "ingrese nota del E4amen $inal"; Leer E$I; Prom!)P01&.'1P02&.'1P03&.'2P0&.'2E$I&.'*; Escribir" fnal del c urso:",Prom; $inProceso
6. Cuántos meses debe ahorrar para para comprar un celular de precio S. 5!! si recibe mensualmente p soles. Proceso 0ompra_de_celular %efnir Precio,meses,p,a5orro Precio,meses,p,a5orro como reales; Escribir "Ingrese precio de celular en soles;"; Leer Precio; Escribir "Ingrese sueldo en soles:"; Leer p; meses!.; a5orro!.;
6epe7r a5orro!a5orrop; meses!meses1; 8asta 9ue a5orroPrecio; Escribir "
". Hallar el área de un c#rculo. Proceso (rea_de_un_cir ( rea_de_un_circulo culo %efnir radio,area como enteros; Escribir "Ingrese el #alor del radio:"; Leer radio; area!)3'11=&radio&radio*; Escribir "El area del circulo es:",area; $inProceso
$. Hallar las ra#ces de la ecuacin cuadrá&ca. Proceso 6ai>_cuadrada %efnir num,dato como reales; 6epe7r Escribir "ingrese un numero posi7#o:"; Leer num; 8asta 9ue num.; dato!num?.'; Escribir "la ra@> del nAmero es:",dato; $inProceso
