Pascal/Turbo Pascal - falta el ; en la primera condición.

   
Vista:

falta el ; en la primera condición.

Publicado por mery (8 intervenciones) el 29/09/2014 13:36:42
1
2
3
4
5
6
7
8
9
10
11
12
begin
  writeln (A);
  read (A);
  writeln (B);
  read (B);
  if A>B then (A);
  else (B);
  if B>A then (B);
  else (B=A);
 
  read (tonta);
end.

Dice que nos falta el ; en la primera condición.
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

condition

Publicado por ramon (2072 intervenciones) el 29/09/2014 14:42:07
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{Mira esto}
 
var
  a, b : integer;
begin
   write('Entre  A : ');
   readln(A);
   write('Entre  B : ');
   readln(B);
  if A > B then
  writeln('A es mayor que B ',A)
 else
  writeln('B es mayor que A ',B);
  if B > A then
  writeln('B es mayor que A ',B)
 else
   begin
   B := A;
   writeln('B pasa a tener el valor de A ',B);
   end;
 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