Program Archi;
uses crt;
var
x:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите x: ');
readln(x);
writeln('При х=',x,'');
writeln('3sin(sqrt(3))+0,35x-3,8 = ',3*sin(sqrt(3))+0.35*x-3.8:0:3);
end.
1. Переводим в двоичную систему
11000101 11101101 00000000 00000000
2. Первая 1 в старшем байте (
<u>1</u>1000101
) значит число отрицательное.
3. Оставшиеся 7 цифр это порядок числа ( 1000101
- 1000000 = 101) это 5 в десятичной системе.
4.Значит наше число это 11101, 101 в двоичной
5. Переводим в десятичную получаем -29,625
program raf105;
var
s,s2: string;
i,j,n,price,points: integer;
begin
write('Количество задач в карусели: ');
readln(n);
write('Ответы команды: ');
readln(s);
for i:=1 to length(s) do
if s[i]<>' '
then s2:= s2 + s[i];
price:= 3;
for i:=1 to length(s2) do
begin
if s2[i]='1'
then begin
points:= points + price;
price:= price + 1;
end
else for j:=1 to 3 do
if price > 3
then price:= price-1;
end;
writeln('Итоговый балл: ',points);
end.
<h3><u>PascalABC 3.4.2</u></h3>
1)1 бит 8 байт 1024 килобайт 1 мегабайт 2 мегабайта
2) 1-2097152
2_137438953472
3-2872
4-16777216