F=int
i=int
f=1
if i=1,6:
print(f)
else:
f=f*i
Удаление символа буквы или цифры backspace
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.
<span>От 0 до 100 - это 101 значение;
64(2^6)<101<128(2^7), значит для кодирования надо 7 бит
7*80=560 бит
560/8= 70 байт
Ответ: 2.</span>