Program a1;
uses crt;
var
ta,b, i,s:integer;
begin.
readln(a);
readln(b);
s:=0;
if a > b then
for i:= a to b do
if i mod 7 = 0 then
s:=s+i;
else
else
if b > a then
for i:= b to a do
if i mod 7 = 0 then
s:=s+i
begin
end;
writeln(s);
end.
Единственный возможным вариантом считаю, обращение в техническую поддержку. Там процедура не особо сложная, возможно спросят: имя аккаунта, когда создан, что написано в профиле, какая была почта, старый телефон, место откуда последний раз заходил. Но восстановлению подлежит.
1-десятка
2-тысяча
3-сотая
4-единица
<span>
1)<span>101010101 = </span>765 удачи вам !!!!!!</span><span><span><span /><span /></span></span>
N = 2^I,
<span>8 = 2^3,
Ответ: 3 - количество информации которое несёт одна буква этого алфавита.</span>