TP1 SLE Dispositivos Moviles Ignacio

Trabajo práctico n°1 de Dispositivos Móviles (SLE), por Ignacio Esparza Iraola.

1)
//Mostrar los múltiplos de 3 comprendidos entre los numeros 1 y 20 (TP1,EJ1)//
var
n,h:numerico
inicio
cls()h=21
n=1
imprimir("Los múltiplos de 3 comprendidos entre 1 y 20 son ")
mientras (h>n)
{
si ((n)%3==0)
{
imprimir(n,", ")
n=n+3
sino
n=n+1
}
}
fin
2)
//Hallar A+B-C+100(TP1,EJ2)//
var
a,b,c,r:numerico
inicio
cls()
imprimir("Escriba un número para A. ")
leer(a)
imprimir("Escriba un número para B. ")
leer(b)
imprimir("Escriba un número para C. ")
leer(c)r=(a)+(b)-(c)+100
imprimir("El resultado es ",r)
fin
3)
//Obtener (a-b)*(a+b)(TP1,EJ3)//
var
a,b,c,d,e:numerico
inicio
cls()
imprimir("escriba un número para A. ")
leer(a)
imprimir("escriba un número para B.")
leer(b)
c=a-b
d=a+b
e=c*d
imprimir("El resultado es ",e)
fin
4)
//Leer un numero de tres díjitos y sumarlos. (TP1,EJ4)//
var
m,r,d,s:numerico
inicio
cls()
imprimir("Escriba un numero de tresdígitos. ")
leer(m)
r=m%100
d=m-r
d=d/100
s=0
s=s+d
m=r
r=m%10
d=m-r
d=d/10
s=s+d+r
imprimir("La suma de los tres díjitos es ",s)
fin
5)
//Dado un numero, verificar que tenga dos dígitosy que sean pares, y promediarlos(TP1,EJ4)//
var
n,j,q,p:numerico
inicio
cls()
imprimir("Ingrese un número mayor a 9.")
leer(n)
si ((n)>10)
{
si ((n)<99)
{
imprimir("El número tiene dosdígitos.")
j=(n)%10
q=(n)-(j)
q=(q)/10
si ((j)%2==0)
{
si ((q)%2==0)
{
imprimir("Los dos dígitos son pares.")
sino
imprimir("Por lo menos, uno de los dígitos no espar.")
}
sino
imprimir("Por lo menos, uno de los dígitos no es par.")
}
p=(q)+(j)
p=(p)/2
imprimir("El promedio de los dígitos es ",p,".")
sino
imprimir("El número tienetres dígitos.")
}

sino
imprimir("El número tiene un dígito.")
}
fin
6)
//Dado un número, verificar si es positivo, negativo o nulo(TP1,EJ6)//
var
n:numerico
inicio
cls()
imprimir("Ingrese un...