Pascal/Turbo Pascal - Ayuda Dividir dos numeros enteros!

   
Vista:

Ayuda Dividir dos numeros enteros!

Publicado por Martin martinn.r@live.com (2 intervenciones) el 02/12/2012 03:26:19
Bueno amigos el ejercicio es realmente sencillo pero no encuentro como lograrlo,
El error que me salta es "error 113: error in statement" y se que tiene que ver con el punto y coma (";") antes del else, quiero dividir el mayor de los numeros por el otro menor.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program dividir_dosnumeros_enteros;
 
var
 
a,b,c:integer;
 
begin
     writeln ('ingresar un numero entero');
     readln (a);
     writeln ('ingresar un numero entero');
     readln (b);
     if (a>b) then;
        c:= a div b;
        writeln ('el resultado es  ', c);
        readln (c);
 
     else
     c:= b div a;
     writeln ('el resultado es  ', c);
     readln (c);
 
end.
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

Ayuda Dividir dos numeros enteros!

Publicado por ramon (2072 intervenciones) el 03/12/2012 22:04:15
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{Fíjate en tu programa antes y ahora}
 
program dividir_dosnumeros_enteros;
 
var
 
a,b,c:integer;
 
begin
     writeln ('ingresar un numero entero');
     readln (a);
     writeln ('ingresar un numero entero');
     readln (b);
     if a > b then
        c := a div b
     else
     c := b div a;
     writeln ('el resultado es  ', c);
     readln;
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