Решение на<em> Pascal</em>:
var
a: integer;
begin
writeln('Введите число:');
readln(a);
if (a mod 5 = 0) then writeln('Число является кратным 5.') else writeln('Число не является кратным 5.')
<span>end.</span>
Переведем числа в десятичную систему счисления:
A416 + 208 = 10·16+4 + 2·8 = 164 + 16 = 18010.
Переведем полученное число в двоичную систему счисления:
18010 = 1⋅27 + 0⋅26 + 1⋅25 + 1⋅24 + 0⋅23 + 1⋅22 + 0⋅2 + 0 = 101101002.
Сравним его с данными нам в условии двоичными числами:
10001011 — меньше, чем 10110100;
10111000 — больше, чем 10110100;
10011011 — меньше, чем 10110100;
10110100 — совпадает с 10110100. Таким образом, имеем одно число, большее, чем A416+208
var a,res:integer;
begin
writeln('Введите число');
readln(a);
res:=sqr(a);
writeln('Квадрат числа,'a', равен,'res',');
readln;
end.
Program Jopascal;
Var
i, A: longint;
x,
u, j,
N, m : longint;
Function FDiv (A, left : LongInt) : LongInt;
var
d,
i : longint;
begin
d := 1;
for i := left to Trunc (Sqrt (A)) do
if (A mod i = 0)
then
begin
d := i;
Break;
end;
if (d <> 1)
then
FDiv := d
else
FDiv := A;
end;
Function g (N, u : longint) : longint;
var
i : longint;
begin
i := 0;
while (N mod u = 0)
do
begin
Inc (i);
N := N div u;
end;
g := i;
end;
Begin
Assign (Input, 'input.txt');
Assign (Output, 'output.txt');
Reset (Input);
Read (A);
Close (Input);
m := 0;
N := 1;
i := FDiv (A, 2);
u := 2;
while (A > 1)
do
begin
N := N * i;
j := 0;
while (A mod i = 0)
do
begin
Inc (j);
A := A div i;
end;
if (j > m)
then
begin
m := j;
u := i;
end;
i := FDiv (A, i + 2);
end;
x := 1;
while (g (N * x, u) * N * x < m)
do
Inc (x);
N := N * x;
ReWrite (Output);
Write (N);
Close (Output);
End.
