Да да да
да да нет
да нет да
да нет нет
нет да да
нет нет да
нет нет нет
нет да нет
100110=1*2(в степени 5)+0*2(в степени 4)+0*2(в степени 3)+1*2(в степени 2)+1*2(в степени 1)+0*2(в степени 0)=32+0+0+4+2+0=38
<span>1. Информация.
2. Редактор.
3. Программа.
4. Меню.
5. Окно.
6. Сеть.
7. Почта
8. Память.
9. Обеспечение.</span>
Задаешь значения k и S ноль(количество и сумма) .Сделай цикл с условием, если b делить на 5 равно нолю то k равно k=+1.
Ещё такое же условие, но s=s+b
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.