1)754=1EC
2)0,141=
<span>0.03230303030303030303030303030303030303030303030<span>303
</span>3)126,33=</span>
11200.02222012010111202210022220120101112022100222201201
при n=
1) * 5 (начало)
2) * 3 (n-2=5-3=2)
3) * 1 (n-2=3-2=1)
4) * -1 (n-2=1-2=-1)
5) * 0 (n div 2 =-1 div 2 =0)
6) * 0 (n div 2 =1 div 2 =0)
7) * 1 (n div 2 =3 div 2=1)
8) * -1 (n-2=1-2=-1) ранее была такая ситуация, далее два 0
9) * 0
10) * 0
11) * 1
12) * -1
13) * 0
14) * 0
---------------------------------------------------
15) * (n=5 div 2 =2)
16) * (n=2-2=0)
17)* (n=2 div 2=1)
18) * (n=1-2=-1)
19) * (n=0)
20) * (n=0)
21) * (n=1)
22) * (n=-1)
23) * (n=0)
24) * (n=0)
-------------------------------------------------------
и ещё раз 10 при второй F(n div 2)
ВСЕГО 34 звёздочки *
Program array15numbers;
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.
Остались вопросы? - спрашивай в комментах.
Нужно более подробное объяснение - пиши в лс vkcom/ilyahard
Var
a,i,n:integer;
b:array [1..50] of integer;
begin
readln(n);
for i:= 1 to n do
readln(b[i]);
i:=1;
a:=0;
while (b[i]<>0) and (i<=n) do
begin
if b[i] mod 2 =0 then a:=a+b[i];
inc(i);
end;
writeln('Сумма четных элементов = ',a);
end.
Аккордеонов-1) саксофон 2)бас-гитара
Баянов-1)корнет 2)ритм-секция
Тальянкин-1)банджо 2)труба
