Есть ошибки в запуске, это бывает при удалении изменении файлов в главной папке или же без наличия нужных ресурсов программ для работы приложения
program number7;
uses crt;
var a,b: integer;
begin
clrscr;
a := 342;
b := 512;
a := a div 10 mod 10;
b := a + b mod 10;
writeln ('17 div 3 = ',b);
readln
end.
b=6
Все сложна я тебе так скажу думай сам тут если додуматься не так сложна
1 знак=8 бит
<span>8 разрядного двоичного кода, включая пробелы
</span>
тогда 8+8+8(пробел)+8+8+8+8+8+8+8+8= 88 бит
Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>