Var
N,K,R: integer;
x,s: integer;
begin
read(N,K);
R := N;
x := 2; s := 4;
while s <= K do
begin
while K mod x = 0 do
begin
if N mod x = 0 then
N := N div x
else
R := R * x;
K := K div x;
end;
s := s + 2*x + 1;
x := x + 1;
end;
if N mod K <> 0 then
R := R * K;
writeln(R)
end.
Всі числа кратні 7 одночасно до 98 включно
#include <iostream>
int main()
{
for(int i = 2; i<=14;i++)
{
std::cout<<i*7<<"\n";
}
}
2 т.к. 3к байтов = 24к битов
И 24к делим на 5*32*80=12к
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите:',ReadInteger('n=')).Any(x->x<0))
end.
<u>Примеры</u>
n= 5
Вводите: 6 -4 56 34 0
True
n= 3
Вводите: 67 9453 457
False