Pascal/Turbo Pascal - programa en free pascal

   
Vista:

programa en free pascal

Publicado por yesica (3 intervenciones) el 20/05/2012 18:29:23
hola necesito que me ayuden a contruir un programa que acepte numeros hasta que el usuario introduzca el numero 666, para cada numero el programa indicara si es multiplo de 5 y/o de 3 . espero su respuesta gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

programa en free pascal

Publicado por ramon (2072 intervenciones) el 20/05/2012 22:23:11
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
{A ver si esto bale}
 
 program multiplos;
 uses
    crt;
  var
    numero : integer;
    salir : integer;
 
  begin
      clrscr;
      salir := 1;
      while salir <> 666 do
      begin
         write('Entre un numero : ');
         readln(numero);
         if numero = 666 then
         salir := numero
      else
         begin
            if numero mod 5 = 0 then
            writeln(numero,' : Es multiplo de 5');
            if numero mod 3  = 0 then
            writeln(numero,' : Es multiplo de 3');
         end;
      end;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar