|
program ARM13021;
uses Crt;
var
Contador : Integer;
Arista : Real;
begin
ClrScr;
Write( 'Introduzca
arista: ' );
ReadLn( Arista );
Contador := 0; { Inicializacion del contador
}
while
( Arista > 0
) do
begin
WriteLn( 'El
volumen de un cubo de arista ', Arista:0:2,
' es: ',
Arista * Arista * Arista:0:2 );
Contador := Contador + 1;
{ Incremento }
Write( 'Introduzca
arista: ' );
ReadLn( Arista )
end;
Write( 'Ha
calculado el volumen de ', Contador, ' cubo(s).' );
end.
|
