Запомни: в 1 байте 8 бит, в 1 Кбайте 1024 байт, 1 Мегабайте = 1024 кбайт, 1 Гигабайт = 1024 мегабайт.
Исходя из этого имеем (приведём всё к битам):
1) 5 бит
2) 15 байт = 15*8 бит = 120 бит
3) 1024 килобайт = 1024*1024 байт = 1048576 байт = 1048576 * 8 бит = 8388608 бит
4) 1024 мегабайт = 1024*1024*1024*8 бит = 8589934592 бит
5) 15 килобайт = 15*1024*8 бит = 122880 бит
Таким образом:
5 бит → 15 байт → 15 килобайт → 1024 килобайт → 1024 мегабайт
(хотя здесь и вычислять ничего не нужно - всё итак очевидно и без расчётов)
Program Program1;
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
Writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
for i:=1 to 10 do
if i mod 2 = 0 then a[i]:=sqr(a[i]);
Writeln('Преобразованный массив: ');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.
<em>
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>begin
var a:=ReadReal('a=');
if a>0 then Writeln(0.4*ln(a):0:4)
else Writeln('Логарифм не существует')
end.
<u>Пример</u>a= 2.543
0.3733
Program p1;
var
n,a,i,max,fl:integer;
begin
writeln('Введите кол-во участников>>');
readln(n);
max:=0; fl:=0;
for i:=1 to n do
begin
writeln('Введите кол-во правильных ответов, данных участником ',i);
readln(a);
if (a > max) then max:=a;
if a=0 then fl:=1;
end;
if fl=1 then writeln('YES') else writeln('NO');
writeln('Победитель набрал ',max,' баллов');
end.
Пример:
<span>Введите кол-во участников>> 5
Введите кол-во правильных ответов, данных участником 1 15
Введите кол-во правильных ответов, данных участником 2 18
Введите кол-во правильных ответов, данных участником 3 0
Введите кол-во правильных ответов, данных участником 4 8
Введите кол-во правильных ответов, данных участником 5 10
YES
Победитель набрал 18 баллов</span>