Const
n=10;
var
a,b,c:array[1..n] of real;
i:integer;
begin
Writeln('Введите элементы массива');
for i:=1 to n do Read(a[i]);
Writeln(' A B C');
for i:=1 to n do
begin
b[i]:=a[n-i+1]; c[i]:=(a[i]+b[i])/2;
Writeln(a[i]:7:3,b[i]:7:3,c[i]:7:3)
end
end.
<em><u>Тестовое решение:</u></em>
Введите элементы массива
1.26 -0.3 6.18 7 -7.04 -9.9 -1.7 -2.955 1.75 0.245
A B C
1.260 0.245 0.753
-0.300 1.750 0.725
6.180 -2.955 1.613
7.000 -1.700 2.650
-7.040 -9.900 -8.470
-9.900 -7.040 -8.470
-1.700 7.000 2.650
-2.955 6.180 1.613
1.750 -0.300 0.725
0.245 1.260 0.753
<em><u>Блок-схема во вложении</u></em><em><u /></em>
151 в двоичной системе (10010111) тем самым единиц равняется 5.
Ответ:
12 22 122 12 110
Д Е Г Д Ж <----- зашифрованное сообщение
Объяснение:
1) while. Потому что проверка условия происходит сразу же, и если будет ложь, то цикл вообще выполняться не будет.
2) repeat/until
3) repeat
B=B-A
Until A4)
а, в: алгоритм циклической структуры
б: алгоритм разветвляющейся структуры
г: алгоритм линейной структуры
5) б
6) х: 13, у: 12
7) х:4, у: 12
8) 24
9:
...
А:=16;
B:=2;
While (B<>32) do
Begin
B:=B*2;
A:=A+2;
End;
...