Два числа называются взаимно простыми, если они не имеют общего натурального делителя, кроме 1. Иными словами, их наибольший общий делитель равен 1.
Найдите количество шестизначных чисел, взаимно простых с числом 70.
Var j,n : Longint;
Function Check(a,b : Longint) : Boolean;
Var i : Longint;
Begin
Check:=True;
For i:=2 to b do If ((a mod i)=0) and ((b mod i)=0) then Check:=False;
end;
Begin
n:=0;
For j:=100000 to 999999 do If Check(j,70) then Inc(n);
Writeln(n);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
