Ejercicios en Pascal N04 Factorial

program factorial;

uses crt;

var

i,num:integer;

factor:longint;

begin

clrscr;

gotoxy(18,3);writeln ('<< FACTORIAL DE UN NUMERO >>');

gotoxy(20,10);writeln ('INTRODUZCA EL NUMERO <-->');

gotoxy(42,10);read(num);

factor:=1;

for i:=1 to num do

factor:=factor*i;

gotoxy(20,13);writeln ('EL FACTORIAL ES: ',factor);

readkey;

end.

Ejercicios en Pascal N03

program sumanat;

uses crt;

var

i,suma:integer;

begin

clrscr;

gotoxy(15,3);writeln ('<< SUMA DE LOS PRIMEROS 100 NUMEROS NATURALES >>');

suma:=0;

for i:= 1 to 100 do

suma:=suma+i;

gotoxy(27,13);writeln ('LA SUMA ES: ',suma);

readkey;

end.

Ejercicios en Pascal N02

program edad;

uses crt;

var

e:integer;

begin

clrscr;

gotoxy(20,3);writeln ('PROGRAMA <>');

gotoxy(27,10);writeln ('INTRODUZCA LA EDAD <-->');

gotoxy(47,10);read (e);

if (e>=18) then

begin

gotoxy(27,13);writeln ('<<< ES MAYOR DE EDAD>>>');

end

else

begin

gotoxy(27,13);writeln ('<<< ES MENOR DE EDAD>>>');

end;

readkey;

end.