1) Первое задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, k: integer;
Begin
Randomize;
i := 1;
k := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] > 15) then
k := k + 1;
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('k = ', k);
End.
2) 2 задание
Program Test;
const size = 18;
Var a: array[1..size] of integer; i, s: integer;
Begin
Randomize;
i := 1;
s := 0;
while i <= size do
begin
a[i] := Random(0, 29);
i := i + 1;
end;
i := 1;
while i <= size do
begin
if (a[i] mod 2 = 0) then
s := s + a[i];
i := i + 1;
end;
i := 1;
while i <= size do
begin
Writeln(i, ') ', a[i]);
i := i + 1;
end;
Writeln();
Writeln('s = ', s);
End.
P.S. На фотографии не видно часть второго задания. Скорее всего там написано, что нужно посчитать сумму элементов массива с четным значением. Такую программу я и писал.
Если имеется ввиду Excel, то там возможно 3 вида ссылок: относительные (записываются в виде A1, A5:C2), абсолютные (в виде $A$5, $A$4:$D$7) и смешанные ($A6, D$5:$C2).
Относительные ссылки автоматически перестраиваются при вставке или удалении строк/столбцов/ячеек, абсолютные - всегда указывают на ячейку с указанным адресом, даже если было добавлена/удалена строка/столбец/ячейка, смешанные сохраняют своё первоначальное значение в позиции, перед которой стоит знак $ и перестраивают только то значение, перед которым нет $.
1. 262144 бит = 262144/8 байт = 32768 байт = 32768/1024 Кбайт = 32 Кбайт<span>
2. 16384 бит = 16384/8 байт = 2048 байт = 2048/1024 </span>Кбайт = 2 Кбайт<span>
3. 131072 бит = 131072/8 байт = 16384 байт = 16384/1024 </span>Кбайт = 16 Кбайт<span>
4. 1/4 Кбайт = 1024/4 байт = 256 байт = 8*256 бит = 2048 бит
5. 227 бит = 227/8 байт = 227/(8*1024) Кбайт = 227/(8*1024*1024) Мбайт </span>≈ 0,000027 Мбайт<span>
6. 10 Кбайт = 10*1024 байт = 10240 байт = 10240*8 бит = 81920 бит = 81920/1000 Кбит = 81,92 Кбит
7. 2048 бит = 2048/1000 Кбит = 2,048 Кбит
8. 2 Кбит = 2*1000 бит = 2000/8 байт = 250 байт</span>
Ответ: a,b,s: integer;
begin
write('Ââåäèòå Г·ГЁГ±Г«Г* a, b: ');
readln(a,b);
if a>0 then s:=a+b
else s:=a*b;
writeln('s=',s);
readln;
end.
Объяснение:
По формуле N=2^i находим информационный вес одного символа (N=16=>i=4 бита)
количество символов - это общий вес, делённый на вес символа (I=ki=>k=I/i=4*2^13/4=2^13 символов)
Вторая задача решается так же
