Объясню как написать. Внешний носитель - это флешка, диск, внешний жесткий диск (не тот, который является комплектующей, и на котором ОС стоит), и так далее. Выбираешь любой. Дальше напиши об объеме (например, 4Гб, 8 Гб, и т. д.) О скорости передачи данных (т.е. с какой скорость данные передаются с жесткого диска компьютера на внешний носитель, например 20Мб/с., 30Мб/c.) Если это диск, то какой вид записи - R (read-only, только чтение), или RW (Read-Write, чтение и запись). Вроде все основное перечислил.
begin var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]); var n := ReadInteger('n->'); for var i := 4 downto 0 do begin k[i] := n div t[i];n := n mod t[i]; end; if k[0] * cost[0] >= cost[1] then begin k[0] := 0;inc(k[1]); end; if k[0] * cost[0] + k[1] * cost[1] >= cost[2] then begin k[0] := 0;k[1] := 0;inc(k[2]); end; if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] >= cost[3] then begin k[0] := 0;k[1] := 0;k[2] := 0;inc(k[3]); end; if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] >= cost[4] then begin k[0] := 0;k[1] := 0;k[2] := 0;k[3] := 0;inc(k[4]); end;
for var i := 0 to 4 do WritelnFormat('{0} билет(ов)- {1} штук(а)', t[i], k[i]); end.
Внешний носитель - это флешка, диск, внешний жесткий диск (не тот, который является комплектующей, и на котором ОС стоит), и так далее.
Выбираешь любой.
Дальше напиши об объеме (например, 4Гб, 8 Гб, и т. д.)
О скорости передачи данных (т.е. с какой скорость данные передаются с жесткого диска компьютера на внешний носитель, например 20Мб/с., 30Мб/c.)
Если это диск, то какой вид записи - R (read-only, только чтение), или RW (Read-Write, чтение и запись).
Вроде все основное перечислил.