Для попарно простых чисел a,b,c верно, что:
- если число делится на a и b, оно делится на a×b;
- если число не превышает N, то m×a×b, где m=1,2,3... также не превышает N;
- если при этом число не делится на с, то a×b также не делится на с.
Следовательно, количество чисел, не превышающих N равно N div (a×b), где div - операция деления нацело.
Из этого количества нужно вычесть количество чисел, делящихся на c, т.е. N div (a×b×c)
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('N=');
var (a,b,c):=ReadInteger3('Введите через пробел a,b,c:');
Writeln(n div (a*b) - n div (a*b*c))
end.
"((7 - 2 - 2)^2 )^2 - 2 = 79"
#Ruby22
def f0(number, log)
return [number * number, "(" + log + ")^2 "]
end
def f1(number, log)
return [number - 2, log + " - 2"]
end
end_num = 79
for n in 1..5
for i in 0..2**n-1
s = ("000000000000000000000000000000" + i.to_s(2))[-n..-1]
start_num = 7
log = start_num.to_s
for k in 0..s.size-1
start_num, log = f0(start_num, log) if s[k] == "0"
start_num, log = f1(start_num, log) if s[k] == "1"
# break if start_num > end_num
end
# p [start_num, log, s, n]
if start_num == end_num then
log += " = " + end_num.to_s
p log
end
end
end
Var a,b,c,sred_A:real;
begin
Writeln('Привет,я-alconafft');
Writeln('Введи первое число');
readln(a);
Writeln('Введи второе число');
readln(b);
Writeln('Введи третье число');
readln(c);
sred_A:=a+b+c/3;
writeln('среднее арифметические равно ',sred_A);
end.
F1 = ( ¬X ∨ Y ) ∧ ( ¬X ∨ ¬Y )
F2 = ( X ∨ Y ) ∧ ( ¬X ∨ Y )
Выбрать место для цветка
Обозначить его форму
Прорисовать основные детали
Прорисовать мелкие детали