Numeros Mayor En Progra

abcdef113 de Febrero de 2013

364 Palabras (2 Páginas)429 Visitas

Página 1 de 2

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >= 18 then

Begin

Writeln(´Mayor de Edad´);

End;

Readkey;

End

Program EdadMayor;

Uses crt;

Var

Edad: integer;

Begin

Clrscr;

Writeln(´Digite su edad:´);

Readln(edad);

If edad >=

...

Descargar como (para miembros actualizados) txt (7 Kb)

Leer 1 página más »

Leer documento completo Guardar

Disponible sólo en Clubensayos.com