serie de ejercicios en prolog

____________________________________________

(defun ncifra (n)
  (setq suma 0)
  (while (> n 0)
    (setq r( mod n 10))
    (setq n( / n 10 ))
    (setq suma( + suma r))
  )
)


(ncifra 45)
____________________________________________


(defun par(a)
 (setq r (mod a 2))
  (if (= r 0) 'es_par  'es_impar)
)

(par 6)

Un comerciante efectúa durante el mes 10 ventas a distintos clientes en C++

Un comerciante efectúa durante el mes 10 ventas a distintos clientes. Se desea saber:
a)Cuantas ventas fueron mayores a 550.
b)Cuantas ventas fueron mayores a 200 y menores o iguales a 550.
c) Calcular los promedios de cada grupo (puntos a y b).
d)Mostrar por pantalla lo solicitado en los puntos a, b y c.

#include <iostream>
using namespace std;

int main ()
{
int Venta[10], I;
double C=0,C1=0,C2=0,C3=0,C4=0,C5=0;

for (I=0; I<=9;I++)
{
  cout<<"Introducir cantidad de venta "<<I+1<<":";
               cin>>Venta[i];

if(  Venta[i] >550)
{
C=C+1;
C1=C1 + Venta[i];
}

else if (Venta[i] >200&& Venta[i]<=550 )
 {
C2=C2+1;
C3=C3 + Venta[i];
 }

C4=C1/C;
C5=C3/C2;
}
cout<<"Promedio de ventas mayores de 550:"<<C4;
cout<<"n";
cout<<"Promedio de ventas mayores a 200 y menores o iguales a 550:"<<C5;
cout<<"n";
cout<<"Cantidad de ventas mayores a 550:"<<C;
cout<<"n";
cout<<"Cantidad de ventas mayores a 200 y menores o iguales a 550 :"<<C2;
cout<<"n";
 system ("pause";);

}

Escribir un programa que detecte si un número leído desde el teclado es mayor o menor que 100 en C++

Escribir un programa que detecte si un número leído desde el teclado es mayor o menor que 100 en C++

#include <iostream>
using namespace std;

int main()
{
double n;
cout<<"n Introducir numero:";
cin>>n;
if (n>100)
cout<<"n El numero introducido es mayor que 100.";
else
cout<<"n El numero introducido es menor que 100.";
cout<<"n";
system("pause";);
}

algoritmo para saber el digito mayor con sentencia while

algoritmo para saber el digito mayor con sentencia while

lea un entero y diga cual es su digito mayor 

import java.io.*;

class whiledop_4_6{

public static void main(String args[])throws IOException

{

int n,n1,m;

BufferedReader in=new BufferedReader (new InputStreamReader(System.in));

<!--more-->

System.out.println("Lee un numero e indica el digito mayor ");

System.out.println("Ingrese numero");

n=Integer.parseInt(in.readLine());

n1=n;

m=0;

while(n>0){

if((n%10)>m){m=n%10;}

n=n/10;}

System.out.println(m+" es el digito mayor de "+ n1);

}

}