Пусть х - количество символов
16*x-8*x=4*2^13 (килобайты перевела в биты)
8х=2^15
x=2^12
x=4096
1) С:\Система
2) С:\Пользователи\Никита\Книги\Гарри Поттер и Кубок огня.pdf
3) С:\Пользователи\Никита\Фото\Истра.jpeg
4) С:\Пользователи\Никита\Документы\История ЭВМ.doc
5) С:\Библиотека
<span>6) С:\Рабочий стол\Снигери.png</span>
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 620 do
if A mod 23 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 1.5255279798308E+55
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 downto 6 do
P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 332640
Наибольшее пятизначное двоичное число будет состоять из всех единиц:
Переведём его в десятичную систему:
Хотя, гораздо проще такое число переводить как наименьшее шестизначное минус один:
Const
<span>n=10; </span>
<span>var a:array[1..n] of integer; </span>
<span>s,p,k,i:integer; </span>
<span>begin </span>
<span>s:=0; </span>
<span>p:=1; </span>
<span>randomize; </span>
<span>for i:=1 to n do begin </span>
<span>a[i]:=Random(100); </span>
<span>if (a[i]>0) and (a[i] mod 3 =0) then k:=k+1; </span>
<span>p:=p*a[i]; </span>
<span>s:=s+a[i]; </span>
<span>write(a[i], ' ') </span>
<span>end; </span>
<span>writeln('Сумма = ',s); </span>
<span>writeln('Произведение = ',p); </span>
<span>writeln('Количество положительных и кратных 3-м = ',k); </span>
<span>end.</span>