Осмелюсь предположить, что твои 2*х это 2*а.
uses crt;
var
a,b,y:integer;
begin
a:=5; b:=5;
y:=2*a+b;
write(y);
end.
Var x, y: Integer;
begin
x := -3;
repeat
if (x < 0) then writeln('При X = ', x, ' y = ', 2 * x);
if (x = 0) then writeln('При X = ', x, ' y = ', 0);
if (x > 0) then writeln('При X = ', x, ' y = ', 0.5 * x);
x := x + 1;
until (x > 8);
<span>end.
Проверил =)</span>
Переменная локальная (в пределах цикла)
Ограниченна определенным типом/заданным числом
Очевидно, это двоичная последовательность. Здесь 64 разряда (бита).
Их можно разбить ровно на 8 байт (т.к. в одном байте 8 бит):
00110101
00100000
11100001
11100000
11101011
11101011
11101110
11100010
Если перевести эти двоичные значения в шестнадцатеричные числа, то получим: 35 20 e1 e0 eb eb ee e2
а если в десятичные числа, то: 53 32 225 224 235 235 238 226
Для любого из этих трёх представлений (двоичного, шестнадцатеричного и десятичного) можно найти кодовые таблицы, по которым легко определить символы текста, соответствующие этим кодам. Чаще всего в таких таблицах используют шестнадцатеричную форму чисел.
Кодовые таблицы бывают разные, но для широко используемой кодировки Windows-1251 в результате перевода этих значений получится такой текст:
<u>5 баллов</u>
const M: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);
var x,y : file of real;
n: real; i: byte;
begin
assign(x,'x.dat');
assign(y,'y.dat');
rewrite(x);
for i:=1 to 8 do write(x, M[i]);
close(x);
reset(x);
rewrite(y);
i := 1;
while not EOF(x) do begin
read(x, n);
if not odd(i) then
write(y, n);
i := i + 1;
end;
close(x);
close(y);
reset(y);
while not EOF(y) do begin
read(y, n);
write(n:5:1);
end;
writeln;
close(y);
end.