B:=32(после вычисления);
a:=32(после вычисления);
Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
<span>end.</span>
Символ = 6 бит ( 2^6=64 символа )
всего символов 26 * 65 * 5 = 8450
<span>всего бит 8450 * 6 = 50700 бит /8 / 1024 = 6 Кбайт</span>
var a,b,c,d,e: integer;
begin
write('Введите a=');
read(a);
b:=10;
c:= a+b;
writeln('Сумма равна ',c);
e:=0;
while c>0 do
begin
d:=c mod 10;
c:=c div 10;
e:=e+1;
end;
writeln('В числе ', e, ' цифр(-a/-ы)');
end.
1)Органолептический
2)Тактильный
3)Визуальный
4)Звуковой