A:= 30;
<span>a:=30;
b:= 6;
a:=30*3/6 после этого a примет значение a:=15, подставляем в условие
if 15>6 </span><span>then (если условие выполняется), а оно выполняется, то решаем первое уравнение
c:= 2*15-5* (6+2) получаем
c:=-10
если писать на паскале, то будет так
var a,b,c:real;
begina:= 30;b:= 6;
a:= a * 3 / b;if a > b then
c:= 2*a - 5*(b+2)else
c:= 2*a + 5*(b+2);
writeln (c);
<span>end.</span></span>
Потому что каждую минуту, каждый час, день, месяц и год люди узнают и придумывают что-то новое...дальше эта информация передаётся другим людям через устную и письменную речи. Более сообразительные люди начинают воплощать это в мечту или ставят какие то опыты.
Вывод: люди-очень умные существа и любая информация в их голове долго не задерживается :)
Как то так, надеюсь, что я чем то помогла! ;)
N=2^i
16=2^i
i=4 бита на 1 символ в первом случае
8=2^i
i=3 бита на 1 символ во втором случае
Количество символов в сообщении неизменно
4k-3k=800
k=800 количество символов
Var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.