<h2>PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)
</h2>
- program task31143948;
- const
- N = 12;
- var
- arr: array[1..N] of real;
- Sum: real;
- begin
- Sum := 1;
- for var i := 1 to N do
- begin
- arr[i] := Random()*4 - 1;
- Writeln(arr[i]:5:2);
- if arr[i] < 0 then
- Sum := Sum * arr[i]
- end;
- if Sum = 1 then
- Write('ПРОИЗВЕДЕНИЕ = 0')
- else
- Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
- end.
Переменная k примет значение: 9,т.к. -7<0
Ответ: 9
Сначала постановка задачи (пункт 2).
Потом разработка алгоритма (пункт 1).
Далее программная реализация алгоритма (пункт 6).
Потом тестирование и отладка программы (пункт 5).
Наконец, выводы по проделанной работе (пункт 4).
1.Числовая
2.Видеоинформация
3.Органы чувств
4.Данные
5.Графическая
6.Компьютер
7.Информация
8.Слуховая
9.Информатика
10.Текстовая
Поскольку вопрос сформулирован не "сколько цифр 1 содержит выражение", то число единиц показывает последняя цифра записи числа. Найдем его.
Выпишем последние цифры при возведении 2 в степень:
2¹=2, 2²=4, 2³=8, 2⁴=...6
2⁵=...2, 2⁶=...4, 2⁷=...8, 2⁸=...6
2⁹=...2, и т.д.
Видно, что если показатель степени делится на 4 без остатка, то последняя цифра равна 6. Если остаток 3, то последняя цифра 8. Если 2, то 4. Если 1, то 2.
Остаток от деления 1024 на 4 равен 0. Значит, 2¹⁰²⁴=...6
Выпишем последние цифры при возведении 8 в степень:
8¹=8, 8²=...4, 8³=...2, 8⁴=...6
8⁵=...8, 8⁶=...4, 8⁷=...2, 8⁸=...6
8⁹=...8. и т.д.
Показатель степени 1023 при делении на 4 дает в остатке 3. Следовательно, последняя цифра 8¹⁰²³ равна 2
8¹⁰²³=...2
Тогда можно найти последнюю цифру данного выражения
8¹⁰²³+2¹⁰²⁴-3=...6 + ...2 - 3=...8 -3=...5
Ответ: 5 единиц