|
program AAR13011;
uses Crt;
var Numero,
Contador, Suma : Integer;
begin
ClrScr;
Write( 'Introduzca
un numero entero: ' );
ReadLn( Numero );
Contador := 0;
Suma := 0;
while
( Numero <> 0
) do
begin
if ( Numero
> 0
) then
begin
Contador := Contador + 1;
Suma := Suma + Numero
end;
Write( 'Introduzca
un numero entero: ' );
ReadLn( Numero )
end;
WriteLn( 'Ha
introducido ', Contador,
' numero(s) mayor(es) que
cero.' );
Write( 'La
suma es ', Suma );
end.
|
