var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write('s=',s);
end.
1) Ответ:3
25/2 11001
12(1)
6(0)
3(0)
1(1)
2)Ответ 4
18/8 101
8(1)
1(0)
Решение привожу в .cpp файле, каждый пункт реализован в отдельной функции.
<em>Замечание 1</em>: Для заданий типа "Найти произведение цифр, удовлетворяющих условию", в случае, если подходящих цифр нет, произведение считается равным нулю.
<em>Замечание 2</em>: В задании 2 в случае, если число содержит более 3ех пятерок, считается, что ответ на вопрос "Содержит ли число три цифры 5?" положительный.
<em>Замечание 3</em>: Для пункта 4, в случае, если после удаления 1 и 3 из числа остаются нули или цифр не остается вообще, считается, что итоговое число равно 0. Если оставшиеся после удаления 1 и 3 цифры образуют последовательность, начинающуюся с некоторого количества n нулей, за которыми следует хотя бы одна ненулевая цифра, то эти n нулей не выводятся. Знаки у исходного и итогового числа совпадают, за исключением случая, когда итоговое число равно 0.
1) 111111_2 = 63_10
2) 10001010_2 = 138_10 если подразумевается беззнаковое целое
N:=3; i:=0;
while n<=10000 do
begin
i:=i+1;
n:=n*2;
<span>end;</span>