1) var
a,b,i,n:integer;
begin
n:=1;
readln(a);
readln(b);
for i:=a to b do
n:=n*i;
writeln(n);
end.
2)
var
n,s:integer;
begin
read(n);
s:=0;
repeat
s:=s+(n mod 10);
n:=n div 10;
until n=0;
writeln (s);
end.
3)
var
n,k,i:integer;
begin
read(n);
for i:= 100 to 999 do begin
if (i div 100)*((i div 10) mod 10)*(i mod 10)=n then
k:=k+1;
end;
writeln (k);
end.
Мощность компьютерного аофавита=256 символов. Определим вес одного символа i=8 бит (2 в 8 степени даст 256);
количество информации определяется по формуле I=K*i
K=U*t
I=U*t*i
I=90*15*8=10800 бит = 1350 байт
Массив заполнен сразу
const a: array[1..8] of integer=(4,-2,-4,0,2,3,1,5);
var i:integer;
begin
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.
Массив заполняется с клавиаутры
var
a: array[1..8] of integer;
i:integer;
begin
for i:=1 to 8 do
readln(a[i]);
for i:=1 to 8 do
if a[i]=2 then writeln('Pozitciya elementa ravnogo 2 = ',i);
end.
<span>Целая часть от деления:
</span><span><span>37 div 2 = 18
</span><span>18 div 2 = 9
</span><span>9 div 2 = 4
</span><span>4 div 2 = 2
</span><span>2 div 2 = 1
</span><span>1 div 2 = 0
</span></span><span>Остаток от деления:
</span>37 mod 2 = 1
18 mod 2 = 0
9 mod 2 = 1
4 mod 2 = 0
2 mod 2 = 0
1 mod 2 = 0
1) Остаток от деления 37 на записываем в обратном порядке. Получаем число в 2-ой системе счисления: 100101
<span>37 = 100101(2)
</span><span>
2) Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения.
0.375*2 = 0.75 (целая часть 0)
0.75*2 = 1.5 (целая часть 1)
0.5*2 = 1 (целая часть 1)
0*2 = 0 (целая часть 0)
Получаем число в 2-ой системе счисления: 0110
0.375 = 0110(2)
В итоге получаем число: 100101.0110(2)</span>
1) С
2) D
3) C
4) C
5) фото
6) С
7) С
8) B
9) B
10) C
11) D
12) B
13) B
14) C
15) A
16) A