1.
var a,z:integer;
begin
z:=1;
readln(a);
while a<>0 do
begin
if a<0 then z:=-z;
readln(a);
end;
if z=-1 then writeln('Произведение отрицательных чисел отрицательно')
else writeln('Произведение отрицательных чисел положительно');
end.
Пример:
12
-45
-87
-20
0
<span>Произведение отрицательных чисел отрицательно
2.
var n,a,x,s,i:integer;
begin
readln(n,a);
s:=0;
for i:=1 to n do
begin
readln(x);
if x>a then s:=s+x
end;
writeln('s = ',s);
end.
Пример:
5 30
48
15
80
29
32
<span>s = 160</span></span>
Var n:integer;
a:Array[1..100] of integer;
begin
read(n);
for i:1 to N do
begin
a[i]:random(10);
a[i]=a[i]*2;
writeln(a[i]);
end;
end.
Код полностью
var
i, s: integer;
begin
s := 0;
for i := 3 to 10 do
s := s + 13;
writeln(s);
end.
Вывод
104
Ответ:
ниже
Объяснение:
Бит Байт Кб
2^13 2^10 1
2^8 2^11 2
2^17 2^14 4*(2^2) = 2^4
При переводе из битов в байты делаем деление на 8=2^3, а при переводе из байтов в биты умножаем на 8.
При переводе из байтов в килобайты делаем деление на 1024=2^10, а при переводе из килобайтов в байты умножаем на 1024.