Ну, для начала определим, сколько битов в одном символе
![32=2^i=>i=5](https://tex.z-dn.net/?f=32%3D2%5Ei%3D%3Ei%3D5)
Значит, 5 бит/символ
В первых символах по 2 бита, ибо
![2^2=4](https://tex.z-dn.net/?f=2%5E2%3D4)
, а символа как раз 4
Итого,
![5*7+2=37](https://tex.z-dn.net/?f=5%2A7%2B2%3D37)
бит в слове из 8-ми букв
![37*10=370 bit](https://tex.z-dn.net/?f=37%2A10%3D370+bit)
<span>Одним из таких свойств является дискретность. Под дискретностью понимается то, что алгоритм состоит из описания последовательности шагов обработки, организованный таким образом, что в начальный момент задаётся исходная ситуация, а после каждого следующего шага ситуация преобразуется на основе данных, полученные в предшествующие шаги обработки. Дискретность алгоритма означает, что он исполняется по шагам: каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего. </span>
Program gt;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
if((i*10+j)mod(i*j)=0)then writeln(i,j);
<span>end.
2)
program gt;
var a,b,c,k:integer;
begin
k:=0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if(a=3*c)then k:=k+1;
writeln(k);
<span>end.</span></span>
S =-9800
var i,k,n,S:integer; A:array[1..100,1..100] of integer;
begin
for i:=1 to 100 do begin
for k:=1 to 100 do begin
if i = k then A[i,k]:= 1 else A[i,k]:= -1;
s:= s + A[i,k];end;end;
write('S =',S:5);
<span>end.</span>
Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write('Введите число для завершения программы введите 0000): ');
readln(n);
if n <> 0 then begin
if n >= 0 then sum := sum + n;
if n < 0 then p := p * n;
end
else writeln('ИТОГ');
writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);
writeln();
until n = 0000;
<span>end.
Вроде так</span>