• Lenguaje

    Pascal

  • Descripción

    Convierta de Décadas (10 años) a días

1
2
3
4
5
6
7
8
9
10
11
12
13
program DecadasADias;
uses crt;

var decadas, dias : integer;
begin
    write ('Ingresa el valor de decadas: ');
    readln (decadas);
    dias := decadas*10*365;
    writeln ('Valor de dias: ', dias);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.