Как сделать, чтобы при нажатии на кнопку открывался рандомный сайт из списка. html

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

надо.

10000 байт перевести в килобайты 

10000 байт перевести в мегабайты (мг)

600000 байт перевести в кигобайт (кб)

решение

1 килобайт = 2^10 = 1024 байт > 1 байт=1/2^10 килобайт

1 мегабайт = 2^20 = 1048576 байт > 1 байт = 1/2^20 мегабайт

приставка киго не существует, по этому принимаю буквенное обозначение кб

тогда

10000 байт = 9,765625 килобайт

10000 байт = 0,00953674 мегабайт

600000 байт = 585,9375 килобайт

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.

запихнуть тепловоз и пассажирский вогон

дать грузовому проехать.

выехать из тупичка

грузовой возвращается до тупичка

грузовой тепловоз задом запихивает оставшиеся 2 вагона пассажирских в тупичек

грузовой уезжает

пассажирский прицепляет 2 вагона и уезжает