Informatica

PROGRAMA 01 - SUMA DE DOS NÚMEROS
-------------------------------------------------

Elabora un programa para obtener la suma de dos números dados:

program SumaDosNumeros;
var N1, N2, suma: integer;
begin
writeln ('O**********************************************************O');
writeln ('* *');
writeln ('*Elaborado por : Sergio Israel Montañez Vazquez *');
writeln ('* *');
writeln ('* Grupo: 215 *');
writeln ('* *');
writeln ('* Programa 01: Suma de Dos Numeros *');
writeln ('**');
writeln ('O**********************************************************O');
writeln;
writeln;
write ('Dame el primer numero: ');
read (N1);
write ('Dame el segundo numero: ');
read (N2);
suma:=N1+N2;
writeln;
writeln ('La suma de ', N1,' y ', N2, ' es: ',suma);
readln;readln;
end.

-------------------------------------------------

PROGRAMA 02 - RESTA DE DOS NÚMEROS
-------------------------------------------------

Elabora un programa para obtener la resta de 2 números:

program RestandoDosNumeros;
var N1, N2, resta: integer;
begin
writeln ('O**********************************************************O');
writeln ('**');
writeln ('* Elaborado por: Sergio Israel Montanez Vazquez *');
writeln ('* *');
writeln ('* Grupo: 215 *');
writeln ('* *');
writeln ('* Programa 02: Restade Dos Numeros *');
writeln ('* *');
writeln ('O**********************************************************O');
writeln;
writeln;
write ('Dame el primer numero: ');
read (N1);
write ('Dame el segundo numero: ');
read (N2);
resta:=N1-N2;
writeln;
writeln('La resta de ', N1,' y ', N2, ' es: ',resta);
readln;
readln;
end.

-------------------------------------------------

PROGRAMA 03 - MULTIPLICACION DE DOS NÚMEROS
-------------------------------------------------

Elabora un programa para obtener la multiplicación e dos números dados:

program MultiDosNumeros;
var N1, N2, multiplicacion: integer;
begin
writeln('O**********************************************************O');
writeln ('* *');
writeln ('* Elaborado por: Sergio Israel Montanez Vazquez *');
writeln ('* *');
writeln ('* Grupo: 215 *');
writeln ('**');
writeln ('* Programa 03: Multiplicacion de Dos Numeros *');
writeln ('* *');
writeln ('O**********************************************************O');
writeln;
writeln;
write ('Dame el primer numero: ');
read (N1);
write('Dame el segundo numero: ');
read (N2);
multiplicacion:=N1*N2;
writeln;
writeln ('La multiplicacion de ', N1,' y ', N2, ' es: ',multiplicacion);
readln;
readln;
end.

-------------------------------------------------

PROGRAMA 04 - DIVISION DE DOS NÚMEROS
-------------------------------------------------

Elabora un programa para obtener la división de...