var A:array[1..10] of integer;
i:integer;
s: integer;
begin
writeln('Массив А:');
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i] <> 0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, не равных нулю = ',s);
end.
Перевод из Килобайт в Байт происходит следующим образом:
Количество Килобайт умножается на количество Байт, содержащихся в одном Килобайте.
<h3>1 Килобайт = 1024 Байт</h3>
456 Килобайт = 456 · 1024 = 466944 Байт
897 Килобайт = 897 · 1024 = 918528 Байт
<h2>Ответ</h2>
466944; 918528
<span>1) a=5
b=a*4
b= b div 7+a
a=3*(b div a)
a=5 b=20
a=5 b=7
a=3 b=7
2) a=129
b=a div 10
a=a-10*b=
b=b div
Что-то в двух последних строках не так...
3) a=145
b=a div 10
a= a-b
b=a div b
a=145 b=14
a=131 b=14
a=131 b=9
4)a=5
b=a*3
a=b mod 7+a
b=b mod a+4
a=5 b=15
a=6 b=15
a=6 b=7
5)a=5
a=2*a-3
b=12-21/a
b=3*b-a
</span>a=7 b=0
a=7 b=9
a=7 b=20
Чтобы программировать и создавать программы
5 битов, т.к. 2⁵ = 32 и этого хватит для 30 символов