1.Дискета
2. не знаю
прости!!!
Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
Amail, скайп,ватсап......
Var a,b,s,u:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=a+b;
u:=2*s;
writeln('u = ',u);
end.
Пример:
<span>a = 5
b = 8
u = 26</span>
1) <span>i=1
2) по стратегии 4 вопроса </span><span>i=log2*12=4 бита
3) не знаю</span>