-
Lenguaje
Pascal
-
Descripción
Calcula la cantidad de archivos en MB que ingresa en un disco duro externo, cuya capacidad debe ser ingresada en GB.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
program CantidadDeArchivosEnMb;
uses crt;
var GB, MB : integer;
begin
write ('Ingresa el valor de GB: ');
readln (GB);
MB := GB*1024;
writeln ('Valor de MB: ', MB);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var GB, MB : integer;
begin
write ('Ingresa el valor de GB: ');
readln (GB);
MB := GB*1024;
writeln ('Valor de MB: ', MB);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.