для того, чтобы сохранить 1000 цифр, надо ⇒ i = 10 бит
тогда для записи идентификатора требуется 4*10+12 = 52 бит ≈ 7 байт
для 20 команд 7*20 = 140 байт
<span>100</span><span> = 1100100</span> - это правильное решение)
Program Program1;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if x=0 then
begin
y:=0;writeln('Y= ',y);
end;
if (x>0) and (x<=1) then begin
y:=x;writeln('Y= ',y);
end;
if x>1 then begin
y:=sqr(x);writeln('Y= ',y);
end;
end.
3 * 10 ^2 + 2 * 10 ^ 1 + 7 * 10 ^ 0 + 4 * 10^(-1) + 8 * 10 ^ (-2)
3 * 10 ^ 3 + 6 * 10 ^ 2 + 1 * 10 ^ 1 + 6 * 10 ^ 0