Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
В первом номере c = 1
Во втором b = 14
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
64 -1 = 63 = 111111 в 2сс. Т.е 6 битов достаточно для хранения номера полки.
V = U*T
U = 9216 байт/сек = 9 КБ/сек
T = 1 мин = 60 сек
V = 9 * 60 = 540 КБ
--------------------------------------
V - объем файла
U - скорость передачи данных
T - время