PascalABC.NET
function IsPrime(number:integer):boolean;
begin
if number = 1 then IsPrime := True
else begin
for var i:= 2 to trunc(sqrt(number)) do begin
if number mod i = 0 then IsPrime := False
else IsPrime := True;
end;
end;
end;
begin
var numbers := Range(0, ReadInteger());
numbers.Println;
numbers.Where(p -> IsPrime(p)).count.Println;
numbers.Where(p -> (p mod 3 = 0) and (p mod 2 <> 0)).Count.Println;
end.
Возможно можно сделать ещё проще, но проверять число на простоту я придумал только самостоятельно реализованной функцией, по этому многабукаф
a = float(input())
print(a)
count = 0
while a != 1:
if (a % 2 == 0 or a % 3 == 0):
if (((a - 1) % 9 == 0) and a % 16 != 0):
print(a - 1)
a = (a - 1)/9
print(a * 3)
print(a)
count += 3
else:
if ((a - 1) % 32 == 0):
a = (a - 1)/32
print(a * 32)
print(a * 16)
print(a * 8)
print(a * 4)
print(a * 2)
print(a)
count += 6
if (a % 16 == 0):
a = a/16
print(a * 8)
print(a * 4)
print(a * 2)
print(a)
count += 4
if (a % 16 != 0 and a % 2 == 0):
a = a/2
print(a)
count += 1
if (a % 9 == 0 or a % 3 == 0):
a = a/3
print(a)
count += 1
else:
if a != 1:
a = a - 1
print(a)
count += 1
if a == 1:
break
print(count)
В интернете также есть другое решение, где каждый раз считается минимальное значение при исполнении одной из трех операций, и в итоге производится операция, в результате которой число становится наименьшим. То решение неверно, потому что оно упускает многие моменты. Это решение наиболее оптимизировано. Тем не менее, я уверен, что есть сделать его еще более оптимизированным, и что я все же упустил какой-то момент. Особенно важно то, что если у нас число, к примеру, 28 (то есть вида 3^n + 1, в данном случае n = 3), то рациональнее отнять от него 1 и делить три раза на 3, чем сразу делить на 2. Если отнять 1 и делить на 3, то это займет всего 4 операции (28 -> 27 -> 9 -> 3 -> 1). А если на 2 (28 -> 14 -> 7 -> 6 -> 3 -> 2 -> 1), то целых 6 операций.
Но в случае с числами, вроде 1000000 (т.е с числами, которые делятся хотя бы на четвертую степень двойки 2^4 = 16), гораздо рациональнее сразу делить на 2, чем отнимать единицу и делить на 3. Я не буду расписывать полностью, но в случае деления на 3 потребуется 25 операций, а с делением на 2 - всего 19.
a = float(input())
print(a)
count = 0
while a != 1:
if (a % 2 == 0 or a % 3 == 0):
if (((a - 1) % 9 == 0) and a % 16 != 0):
print(a - 1)
a = (a - 1)/9
print(a * 3)
print(a)
count += 3
else:
if ((a - 1) % 32 == 0):
a = (a - 1)/32
print(a * 32)
print(a * 16)
print(a * 8)
print(a * 4)
print(a * 2)
print(a)
count += 6
if (a % 16 == 0):
a = a/16
print(a * 8)
print(a * 4)
print(a * 2)
print(a)
count += 4
if (a % 16 != 0 and a % 2 == 0):
a = a/2
print(a)
count += 1
if (a % 9 == 0 or a % 3 == 0):
a = a/3
print(a)
count += 1
else:
if a != 1:
a = a - 1
print(a)
count += 1
if a == 1:
break
print(count)
В интернете также есть другое решение, где каждый раз считается минимальное значение при исполнении одной из трех операций, и в итоге производится операция, в результате которой число становится наименьшим. То решение неверно, потому что оно упускает многие моменты. Это решение наиболее оптимизировано. Тем не менее, я уверен, что есть сделать его еще более оптимизированным, и что я все же упустил какой-то момент. Особенно важно то, что если у нас число, к примеру, 28 (то есть вида 3^n + 1, в данном случае n = 3), то рациональнее отнять от него 1 и делить три раза на 3, чем сразу делить на 2. Если отнять 1 и делить на 3, то это займет всего 4 операции (28 -> 27 -> 9 -> 3 -> 1). А если на 2 (28 -> 14 -> 7 -> 6 -> 3 -> 2 -> 1), то целых 6 операций.
Но в случае с числами, вроде 1000000 (т.е с числами, которые делятся хотя бы на четвертую степень двойки 2^4 = 16), гораздо рациональнее сразу делить на 2, чем отнимать единицу и делить на 3. Я не буду расписывать полностью, но в случае деления на 3 потребуется 25 операций, а с делением на 2 - всего 19.
begin
var i, count, num, posl: integer;
var n := ReadInteger('Введите N:');
for i := 0 to n do
if (i mod 3 = 0) and (i mod not 2 = 0)
then
count += i;
Inc(num);
Println('Сумма удовлятворяющие условие: ', count);
Println('Колличество чисел', num);
end.