Самое нижнее, пятое короч
Dim b(45)
for i=1 to 45
print "b(";i;")= ";
input b(i)
next i
for i=1 to 45
if b(i)=3.5 then
s=s+1
end if
next i
print "kolichestvo: "; s
Program Control;Uses crt;
Var x:integer;y,z:real;
Begin;
x:=5;
y:=7.5;
z:=x+y;
Writeln('summa=',z);
Readln;
End.
100111 разбиваем на тетрады (по 4 цифры), получаем
0010.0111
считаем по схеме
1 1 1 1
8 4 2 1
0010(2)=2(16)
0111(2)=7(16)
100111(2)=27(16)