2^35 * 8 = 2^38 бит
в кбите 1024 бит
2^38 : 1024 = 268 435 456 кбит
в 1 мбите 1024 кбит
268 435 456 : 1024 = 262 144 мбит
в 1 гбите 1024 мбит
262 144 : 1024 = 256 гбит
ответ 256
128 мбит : 8 = 16 мбайт
16 * 1024 = 16384 кбайт
16384 * 1024 = 155 777 216 байт
ответ 155 777 216
Задача 1.
var a, k, l, m: Integer;
begin
s:= 0;
writeln ('Введите число');
readln(a);
if (a>=10) and (a<=999) then
k:=a div 100;
l:= k div 10;
m:= a mod 10;
s:= k+m+l;
writeln ('Сумма цифр в числе равна ', s);
end.
Задача 2.
var i, a, s: Integer;
begin
s:=0;
for i:= 1 to 3 do
begin
writeln ('Введите число №', i);
<span>readln(a);
</span>if (a>5) and (a mod 5 = 0) then
inc(s);
end;
writeln('Количество четных чисел, которые делятся на 5 - ', s);
end.
Задача 3
var a, b, c, d, max, med, min: Integer;
begin
writeln ('Введите число');
<span>readln(a);
</span>b:= a div 100;
c:= b div 10;
d:= a mod 10;
if (b<c) and (b<d) then
min:= b;
if (c<b) and (c<d) then
min:= c;
if (d<c) and (d<b) then
min:= d;
if (b>c) and (b>d) then
max:= b;
if (c>b) and (c>d) then
max:= c;
if (d>c) and (d>b) then
<span>max:= d;
</span>
if (b>c) and (b<d) or (b<c) and (b>d) then
med:= b;
if (c>b) and (c<d) or <span>(c<b) and (c>d) </span>then
med:= c;
if (d>c) and (d<b) or <span>(d<c) and (d>b) </span>then
med:= d;
writeln(min, med, max);
end.
его тип, и компьютер по нему распознает какой программой открыть файл.
512 пикс * 256 пикс * = 131072 пикс / 8 / 1024 = 16 кибипикс.
64 кбайт / 16 кбайт = 4 бит на цвет.
2^4 = 16 цветов поместятся.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-20,40); a.Println;
Writeln('Кол-во отрицательных: ',a.Where(x->x<0).Count)
end.
<u>Пример</u>
n= 15
-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6
Кол-во отрицательных: 9