Программа
var
A: array[1..8] of integer;
B: array[1..8] of integer;
i: integer;
begin
Writeln('Заполните массив ');
for i:=1 to 8 do
Read(A[i]);
if odd(A[i]) then //* смотри примечание после кода
B[i]:=A[i]
end;
Writeln('Нечётные числа массива ');
if B[i]>0 then
Write(B[i],' ');
end.
Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false
Тестовый ввод программы показан в приложении к решению
4. 11 м
5. команда 1=*5b
команда 2=+5
команды: 22212
составим уравнение:
(3+5+5+5)*b+5=95
18b+5=95
18b=95-5
18b=90
b=90/18
b=5
6. ответ 5 потому что команда or будет выполнятся даже если хотя бы одна из двух переменных > 9
7. https://class.ru/pupil.pdf. Следовательно, ответ 1572643.
8. т.к там знак или то мы просто сложим результаты ключа и шифра
1200+600=1800
9. 17 путей
10.Решение:
Переводим целую часть 150 в 10-ой в 2-ую систему последовательным делением на 2:
150/2 = 75, остаток: 0
75/2 = 37, остаток: 1
37/2 = 18, остаток: 1
18/2 = 9, остаток: 0
9/2 = 4, остаток: 1
4/2 = 2, остаток: 0
2/2 = 1, остаток: 0
1/2 = 0, остаток: 1
15010 = 100101102
Программа
var
A: array[1..8] of integer;
B: array[1..8] of integer;
i: integer;
begin
Writeln('Заполните массив ');
for i:=1 to 8 do
begin
Read(A[i]);
if odd(A[i]) then //* смотри примечание после кода
B[i]:=A[i]
end;
Writeln('Нечётные числа массива ');
for i:=1 to 8 do
begin
if B[i]>0 then
Write(B[i],' ');
end;
end.
Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false
Тестовый ввод программы показан в приложении к решению
4. 11 м
5. команда 1=*5b
команда 2=+5
команды: 22212
составим уравнение:
(3+5+5+5)*b+5=95
18b+5=95
18b=95-5
18b=90
b=90/18
b=5
6. ответ 5 потому что команда or будет выполнятся даже если хотя бы одна из двух переменных > 9
7. https://class.ru/pupil.pdf. Следовательно, ответ 1572643.
8. т.к там знак или то мы просто сложим результаты ключа и шифра
1200+600=1800
9. 17 путей
10.Решение:
Переводим целую часть 150 в 10-ой в 2-ую систему последовательным делением на 2:
150/2 = 75, остаток: 0
75/2 = 37, остаток: 1
37/2 = 18, остаток: 1
18/2 = 9, остаток: 0
9/2 = 4, остаток: 1
4/2 = 2, остаток: 0
2/2 = 1, остаток: 0
1/2 = 0, остаток: 1
15010 = 100101102