miércoles, 22 de julio de 2015

Pascal 020 ► Pedir n valores hasta que el usuario desee

Ejercicio 020: Ingresar n valores enteros hasta que el usuario desee y decir cuántos fueron ingresados.

Program Pascal_020;
uses crt;
var
    num, cont : integer;
    opc : char;
Begin
    opc := 's';
    while (opc = 's') do
    begin
        Write('Ingresa número');
        ReadLn(num);
        cont := cont + 1;
        WriteLn('¿Ingresar otro? s/n');
        ReadLn(opc);
    end;
    WriteLn('Se ingresaron: ',cont,' valores');
    ReadKey;
End. 

No hay comentarios:

Publicar un comentario