-
Lenguaje
Pascal
-
Descripción
Diseñar un algoritmo que permita dado un tiempo en segundos, calcular los segundos restantes que le correspondan para convertirse exactamente en minutos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program SegundosRestantesParaUnMinuto;
uses crt;
var segundos_restantes, tiempo_en_segundos : integer;
begin
write ('Ingresa el valor de tiempo en segundos: ');
readln (tiempo_en_segundos);
segundos_restantes := 60-tiempo_en_segundos mod 60;
if segundos_restantes=60 then
begin
segundos_restantes := 0;
end;
writeln ('Valor de segundos restantes: ', segundos_restantes);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var segundos_restantes, tiempo_en_segundos : integer;
begin
write ('Ingresa el valor de tiempo en segundos: ');
readln (tiempo_en_segundos);
segundos_restantes := 60-tiempo_en_segundos mod 60;
if segundos_restantes=60 then
begin
segundos_restantes := 0;
end;
writeln ('Valor de segundos restantes: ', segundos_restantes);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.